A  GENERAL  QUANTUM  MECHANICAL  METHOD 
TO  PREDICT  POSITRON  SPECTROSCOPY 


DISSERTATION 


Paul  E.  Adamson,  Captain,  USAF 
AFIT/DS/ENP/07-04 


DEPARTMENT  OF  THE  AIR  FORCE 
AIR  UNIVERSITY 

AIR  FORCE  INSTITUTE  OF  TECHNOLOGY 


Wright-Patterson  Air  Force  Base,  Ohio 


APPROVED  FOR  PUBLIC  RELEASE;  DISTRIBUTION  UNLIMITED. 


The  views  expressed  in  this  dissertation  are  those  of  the  author  and  do  not  reflect  the  official 
policy  or  position  of  the  United  States  Air  Force,  Department  of  Defense,  or  the  United 
States  Government. 


AFIT/DS/ENP/07 -04 


A  GENERAL  QUANTUM  MECHANICAL  METHOD 
TO  PREDICT  POSITRON  SPECTROSCOPY 


DISSERTATION 


Presented  to  the  Faculty 
Department  of  Engineering  Physics 
Graduate  School  of  Engineering  and  Management 
Air  Force  Institute  of  Technology 
Air  University 

Air  Education  and  Training  Command 
In  Partial  Fulfillment  of  the  Requirements  for  the 
Degree  of  Doctor  of  Philosophy 


Paul  E.  Adamson,  B.S.Chem.E.,  M.S.Env.E. 
Captain,  USAF 


June  2007 


APPROVED  FOR  PUBLIC  RELEASE;  DISTRIBUTION  UNLIMITED. 


AFIT/DS/ENP/07 -04 


A  GENERAL  QUANTUM  MECHANICAL  METHOD 
TO  PREDICT  POSITRON  SPECTROSCOPY 

Paul  E.  Adamson,  B.S.Chem.E.,  M.S.Env.E. 
Captain,  USAF 

Approved: 


Larry  W.  Burggraf  (Chairman) 


Date 


Milton  E.  Franke  (Dean’s  Representative) 


Date 


James  C.  Petrosky  (Member) 


Date 


Xiaofeng  F.  Duan  (Member) 


Date 


Michael  A.  Marciniak  (Member) 


Date 


Mark  E.  Oxley  (Member) 
Accepted: 


Date 


M.  U.  Thomas 

Dean,  Graduate  School  of 

Engineering  and  Management 


Date 


AFIT/DS/ENP/07 -04 


Abstract 

The  nuclear-electronic  orbital  (NEO)  method  was  modified  and  extended  to  positron 
systems  for  studying  mixed  positronic -electronic  wavefunctions.  These  methods  include: 
Hartree-Fock  (HF);  second-order  Moller-Plesset  perturbation  theory  (MP2);  configuration 
interaction  (Cl);  complete  active  space  self-consistent  field  (CASSCF);  and  full  configu¬ 
ration  interaction  (FCI).  The  methodology  for  calculating  positron-electron  annihilation 
rates  based  on  NEO-HF  and  NEO-MP2  wavefunctions  was  also  implemented.  Positronic 
and  electronic  basis  sets  were  optimized  at  the  NEO-FCI  level  for  the  the  positronium  hy¬ 
dride  (PsH)  system  and  used  to  compute  NEO-MP2  energies  and  annihilation  rates.  The 
effects  of  basis  set  size  on  correlation  energies  captured  with  the  NEO-MP2  and  NEO-FCI 
methods  are  compared  and  discussed. 

Equilibrium  geometries  and  vibrational  energy  levels  were  computed  for  the  LiX  and 
e+LiX  (X  =  H,  F,  Cl)  systems  at  the  MP2  and  NEO-MP2  levels.  Anharmonic  effects  were 
included  by  fitting  the  computed  potential  energy  curves  (PECs)  to  a  Morse  potential  func¬ 
tion.  It  was  found  that  anharmonicity  plays  a  significant  role,  specifically  in  the  differences 
between  the  vibrational  energy  levels  of  the  LiX  and  e+LiX  systems.  The  implications  of 
these  results  with  respect  to  vibrational  Feshbach  resonances  (VFRs)  for  these  systems  is 
discussed. 

The  positron  lifetime  in  pressed  samples  of  K2B12H12CH3OH  was  measured  to  be 

0.2645  ±0.0077  ns.  This  result  is  interpreted  with  quantum  mechanical  calculations  of 

B12H12  and  e+Bi2Hi2.  Calculations  reveal  a  spherically  symmetric  positronic  wavefunc- 

tion,  with  a  peak  in  the  positron  density  at  the  outside  edge  of  the  hydrogen  atom  cage.  The 

experimentally  determined  annihilation  rate  corresponds  to  an  effective  number  of  electrons 

2_ 

of  1.88,  or  0.94  of  the  two  electrons  present  in  the  B12H12  dianion,  indicating  that  there  is 

2_ 

significant  positron  density  both  inside  and  outside  of  the  B12HX2  cage. 


rv 


Table  of  Contents 


Page 


Abstract .  iv 

List  of  Figures .  viii 

List  of  Tables .  ix 

List  of  Symbols .  x 

List  of  Acronyms .  xiv 

I.  Introduction .  1 

II.  Background .  7 

2.1  Positron  Annihilation  Spectroscopy .  7 

2.1.1  Positron  Transport  and  Annihilation  in  Condensed 

Matter .  8 

2.1.2  Traditional  Positron  Annihilation  Spectroscopy  .  .  10 

2.1.3  Vibrational  Feshbach  Resonances  of  Positrons  with 

Molecular  Gases .  14 

2.2  Modeling  Positron  Interaction  with  Matter .  16 

2.2. 1  Quantum  Field  Theory  Framework  for  Positron  An¬ 
nihilation  Spectroscopy .  16 

2.2.2  Calculation  of  p2^  and  X  in  Condensed  Matter  .  .  19 

2.2.3  Including  Electron-Positron  Correlation .  22 

2.2.4  Qualitative  Description  of  the  Positronic  Wavefunc- 

tion .  24 

2.2.5  Nuclear- Electronic  Orbital  Approach .  24 

III.  Modeling  Positrons  in  Molecular  Electronic  Structure  Calculations  with 

the  Nuclear-Electronic  Orbital  Method  .  31 

3.1  Theory  and  Computational  Method .  31 

3.1.1  Nuclear- Electronic  Orbital  Formulation .  31 

3.1.2  Positron  Basis  Set  Development .  32 

3.1.3  Annihilation  Rate  .  34 

3.2  Results  and  Discussion .  35 

3.3  Conclusion .  40 

3.4  Supporting  Information  .  41 


v 


Page 

IV.  Vibrational  Energy  Levels  of  LiX  and  e+LiX  (X  =  H,  F,  Cl) .  45 

4.1  Introduction  .  45 

4.2  Theory .  45 

4.3  Computational  Method .  47 

4.4  Results  and  Discussion .  47 

2_ 

V.  Positron  Interaction  With  B12H12  .  54 

5.1  Introduction  .  54 

5.2  Computational  Results .  54 

5.3  Experimental  Results .  60 

5.3.1  Positron  Annihilation  Lifetime  Spectrometer  ...  62 

5.3.2  Positron  Source  and  Sample  Configuration  ....  62 

5.3.3  Data  Analysis  .  64 

5.3.4  K2B12H12  CH3OH  Positron  Lifetime .  65 

5.3.5  Effective  Number  of  Electrons .  65 

VI.  Summary  and  Concluding  Remarks .  68 

6.1  Summary  of  Results .  68 

6.2  Future  Work .  69 

6.2.1  Code  Development .  69 

6.2.2  Future  Experimental  Efforts .  70 

6.2.3  Positronic  Systems  for  Modeling  and  Experiment  71 

Appendix  A.  Electron-Positron  Annihilation  Observables  from  NEO-HF 

and  NEO-MP2  Calculations .  73 

A.l  NEO-HF  Wavefunctions .  73 

A. 2  NEO-MP2  Wavefunctions  and  Energies .  76 

A. 3  NEO-HF  Electron-Positron  Attraction  Energy  .  82 

A. 4  Wep  Matrix  Elements .  88 

A.4.1  Single-Electron  Excitation .  88 

A.4.2  Single-Electron/Single-Positron  Excitation  ....  91 

A. 5  Calculation  of  the  Spin-Averaged  Positron-Electron  Annihi¬ 
lation  Rate  from  the  NEO-HF  Wavefunction .  94 

A. 5.1  Example:  e+LiH .  94 

A. 5. 2  Annihilation  Rate  for  an  Arbitrary  NEO-HF  Wave- 

function  .  98 

A. 6  Annihilation  Rate  NEO-MP2  First-Order  Correction  ....  101 

A. 6.1  Term .  102 

A. 6. 2  hip  Term .  105 

A. 7  Calculation  of  the  Four-Overlap  Integral  .  106 


vi 


Page 


A. 8  Fourier  Transform  of  the  Product  of  Primitive  Gaussian  Basis 

Functions .  110 

A. 8.1  Separable  Functions .  110 

A. 8. 2  Other  Useful  Theorems  .  110 

A. 8. 3  Self-Reciprocity  of  Gaussian  Functions .  Ill 

A. 8. 4  Fourier  Transform  of  a  Molecular  Orbital .  112 

A. 8. 5  Products  of  Spatial  Orbitals .  113 

A. 9  The  Two-Photon  Momentum  Density .  118 

Appendix  B.  MChem  .  125 

Appendix  C.  Modifications  of  GAMESS  and  NEO  for  Positrons .  138 

C.l  NEOPOS.SRC .  138 

C.1.1  lumbdcdif  subroutine .  138 

C.1.2  getlambdamp2  subroutine .  140 

C.1.3  neodftint  subroutine .  145 

C.1.4  neofourc  subroutine .  147 

C.1.5  neoforscr  subroutine .  161 

C.2  Changes  to  Preexisting  GAMESS  and  NEO  Source  Files  .  .  167 

C.2.1  GAMESS.  SRC .  168 

C.2. 2  INPUTA.SRC .  169 

C.2. 3  MTHLIB.SRC .  171 

C.2. 4  NEO. SRC  .  171 

C.2. 5  NEOBAS.SRC .  175 

C.2. 6  NEOCAS.SRC .  178 

C.2. 7  NEOFCI.SRC .  178 

C.2. 8  NEOHF.SRC .  179 

C.2. 9  NEOINT.SRC .  179 

C.2. 10  NEOMP2.SRC .  181 

C.2.1 1  NEOSTB.SRC .  181 

C.2. 12  NEOSYM.SRC  .  182 

C.2. 13  NEOTRN.SRC .  184 


Bibliography 


185 


List  of  Figures 

Figure  Page 

1.  Decay  scheme  for  22Na .  7 

2.  Comparison  of  LiH  and  e+LiH  MP2  potential  energy  curves .  39 

3.  e+LiH  HF  and  MP2  potential  energy  curves  with  and  ^MP2  •  •  44 

4.  LiX  and  e+LiX  (X  =  H,  F,  Cl)  MP2  and  NEO-MP2  potential  energy 

curves .  50 

5.  e+LiX  positronic  density  and  LiX  electronic  density  (X  =  H,  F,  Cl)  .  53 

6.  B i2H  12  C2v  geometry .  56 

2_ 

7.  B 12H12  two-dimensional  molecular  electrostatic  potential  in  equatorial 

plane  of  C2V  geometry .  57 

2_ 

8.  B12H12  two-dimensional  molecular  electrostatic  potential  in  Cartesian 

plane  of  the  C2V  geometry .  58 

9.  e+Bi2Hi2  NEO-HF  positronic  density .  61 

10.  Schematic  of  positron  annihilation  lifetime  spectroscopy  system  ...  63 

11.  Tungsten  positron  lifetime  spectrum .  66 

12.  K2Bi2H)2'CH30H  positron  lifetime  spectrum .  67 


viii 


List  of  Tables 

Table  Page 

1.  Positron  lifetimes  and  corresponding  effective  numbers  of  electrons  for 

water  solutions  of  NaX  (X  =  Cl,  F,  Br,  I) .  12 

2.  Comparison  of  NEO-MP2  and  NEO-FCI  results  for  PsH .  36 

3.  H~,  Li,  PsH,  and  e+LiH  even-tempered  basis  set  parameters  and  asso¬ 
ciated  energies  optimized  with  MP2  and  NEO-MP2  methods .  37 

4.  LiH  and  e+LiH  MP2  and  NEO-MP2  results .  38 

5.  Comparison  of  NEO-MP2  (with  RONHF  Hamiltonian)  and  NEO-FCI 

results  for  PsH .  42 

6.  PsH  and  e+LiH  even-tempered  basis  set  parameters  and  associated  en¬ 
ergies  optimized  at  the  NEO-MP2  level  (with  RONHF  Hamiltonian)  .  42 

7.  LiH  and  e+LiH  MP2  and  NEO-MP2  results  (with  RONHF  Hamiltonian)  43 

8.  X~,  Li~,  PsX,  LiPs,  and  e+LiX  (X  =  H,  F,  and  Cl)  even-tempered  basis 

set  parameters  and  energies  optimized  at  the  MP2  and  NEO-MP2  levels  49 

9.  LiX  and  e+LiX  (X  =  H,  F,  and  Cl)  MP2  and  NEO-MP2  results.  ...  51 

10.  LiX  (X=  H,  F,  and  Cl)  VFRs  computed  from  MP2  and  NEO-MP2  PECs  52 

2_ 

11.  MP2-optimized  C2v  symmetry-unique  atomic  coordinates  of  B12H12  .  55 

12.  MP2  and  NEO-MP2  results  for  B12Hi2  and  e+B12HT2 .  60 


ix 


List  of  Symbols 

Symbol  Page 

PsH  positronium  hydride .  iv 

LiX  lithium  halides  (X  =  H,  F,  Cl)  .  iv 

e+LiX  positronic  lithium  halides  (X  =  H,  F,  Cl) .  iv 

e+  positron .  iv 

Zk  positron  or  electron  kinetic  energy .  4 

Zb  positron  binding  energy  to  molecule  in  VFR  equations  .  .  4 

P+  beta-plus  particle  (or  positron) .  7 

v  neutrino,  in  sodium-22  decay  scheme .  7 

Q-  value  decay  energy  for  a  nuclear  process .  7 

L+  positron  diffusion  length .  8 

Ps  positronium .  8 

para- Ps  singlet  (antiparallel  spins)  positronium .  9 

ortho- Ps  triplet  (parallel  spin)  positronium  .  9 

x  positron  lifetime .  10 

L  annihilation  rate  .  12 

NaX  sodium  halides  (X  =  Cl,  F,  Br,  I) .  12 

mo  electron  (or  positron)  rest  mass .  13 

c  speed  of  light .  13 

p  electron-positron  pair  momentum .  13 

Ej  sum  of  annihilation  photon  energies .  13 

h  Planck’s  constant .  13 

v  photon  frequency .  13 

E T  electron  binding  energy .  13 

Ef  positron  binding  energy  .  13 

A E  difference  in  annihilation  photon  energies .  13 


x 


Symbol  Page 

p  ||  parallel  component  of  electron-positron  momentum  ....  14 

p_  perpendicular  component  of  electron-positron  momentum  14 

9  deviation  from  collinearity  of  annihilation  photons  ....  14 

D  vibrational  energy  level .  14 

J  rotational  energy  level .  14 

e~  electron .  14 

<J>£+i£_(p)  two-photon  momentum  density  .  16 

k  electron  wave  number .  16 

k+  positron  wave  number .  16 

\| )k±  wavefunctions  of  the  electron-positron  pair .  16 

r  spatial  coordinate .  16 

H'  annihilation  operator .  17 

a(pi)  and  b(p2)  electron  and  positron  annihilation  operators .  17 

8  delta  function .  17 

\|/_(ri)  electron  position-space  field  operator .  17 

\|/+(r2)  positron  position-space  field  operator .  17 

V  quantization  volume .  18 

§e  electron  Slater  determinant .  18 

4>p  positron  Slater  determinant .  18 

p2^(p)  two-photon  momentum  density  (final  form) .  18 

n_(+)  electron  (positron)  density .  19 

q  electron  charge .  19 

y[«_(r)]  enhancement  factor .  22 

Ne  number  of  electrons  .  25 

Np  number  of  quantum  nuclei  (or  positrons)  .  25 

Nc  number  of  classical  nuclei .  25 

Htot  total  Hamiltonian  operator .  25 

Z  charge  of  classical  nuclei  (or  positron) .  25 


xi 


Symbol  Page 

i  and  j  electron  indices .  26 

i!  and  /  quantum  nuclei  (or  positron)  indices .  26 

A  and  B  classical  nuclei  indices .  26 

M  mass  of  quantum  nuclei  (or  positron)  .  26 

lf(i)  electron  one -particle  operator  .  26 

hp{i')  electron  one -particle  operator  .  26 

'P tot  nuclear-electronic  (or  positronic-electronic)  wavefunction  26 

d>Q  electron  Slater  determinant  of  spin  orbitals  .  26 

nuclear  (or  positron)  Slater  determinant  of  spin  orbitals  .  .  26 

%f  electron  spin  orbital  .  27 

X£  nuclear  (or  positron)  spin  orbital .  27 

\|/f  electron  spatial  orbital .  28 

\\f{.,  positron  spatial  orbital .  28 

H  reference  Hamiltonian .  31 

£  exponent  of  Gaussian  primitive  .  33 

a/  and  (3*  even-tempered  parameters  of  Ath  exponent  of  type  l  ...  .  33 

N  number  of  doubly  occupied  electronic  MOs .  34 

ro  classical  electron  radius  .  35 

(]),•(;/)  z(z/)tl1  electr°n  (p°sitr°n)  MO  .  35 

Sijtf  four-center  integral .  35 

a  occupied  electron  MO  index .  35 

r  virtual  electron  MO  index .  35 

r'  virtual  positron  MO  index .  35 

{ii'\jf)  electron-positron  Coulomb  integral  .  35 

£,(',/)  ith  (z'th)  electron  (positron)  MO  eigenvalue .  35 

Re  equilibrium  bond  length .  47 

Ro  bond  length  including  zero  point  energy  correction  ....  48 

Rexp  experimental  bond  length .  51 


xii 


Symbol  Page 

A  dissociation  energy .  51 

coe  harmonic  constant .  51 

coe%e  anharmonic  constant .  51 

2_ 

Rbb  boron-boron  bond  length  in  B12H12 .  55 

Rbh  boron-hydrogen  bond  length  in  B12H12 .  55 

CH3X  methyl  halides  (X  =  H,  F,  Cl) .  71 


xiii 


List  of  Acronyms 


ACAR 

angular  correlation  of  annihilation  radiation 

ASA 

atomic  sphere  approximation 

CASSCF 

complete  active  space  self-consistent  field 

CDB 

coincidence  Doppler  broadening 

Cl 

configuration  interaction 

DEAR 

Doppler  broadening  of  annihilation  radiation 

DMC 

diffusion  Monte  Carlo 

FCI 

full  configuration  interaction 

FWHM 

full  width  at  half  maximum 

GAMESS 

General  Atomic  and  Molecular  Electronic  Structure  System 

HF 

Hartree-Fock 

IMOMM 

integrated  molecular  orbital/molecular  mechanics 

IP 

ionization  potential 

IPM 

independent  particle  model 

LDA 

local  density  approximation 

LLNL 

Lawrence  Livermore  National  Laboratory 

LMTO 

linear-muffin-tin  orbital 

MCSCF 

multiconfiguration  self-consistent  field 

MESP 

molecular  electrostatic  potential 

MM 

molecular  mechanics 

MO 

molecular  orbital 

MP2 

second-order  Moller-Plesset  perturbation  theory 

MRPT 

multi-reference  perturbation  theory 

NEO 

nuclear-electronic  orbital 

NMR 

nuclear  magnetic  resonance 

PALS 

positron  annihilation  lifetime  spectroscopy 

xiv 


PAS 

positron  annihilation  spectroscopy 

PEC 

potential  energy  curve 

PES 

potential  energy  surface 

PMT 

photomultiplier  tube 

QM 

quantum  mechanics 

QMC 

quantum  Monte  Carlo 

RHF 

restricted  Hartree-Fock 

ROHF 

restricted  open-shell  Hartree  Fock 

SCF 

self-consistent  field 

SIMOMM 

surface  integrated  molecular  orbital/molecular  mechanics 

SVM 

stochastic  variational  method 

TPMD 

two-photon  momentum  density 

UHF 

unrestricted  Hartree-Fock 

VFR 

vibrational  Feshbach  resonance 

ZPDL 

zero  positron  density  limit 

XV 


A  GENERAL  QUANTUM  MECHANICAL  METHOD 
TO  PREDICT  POSITRON  SPECTROSCOPY 

I.  Introduction 

Dirac  [14]  first  predicted  the  existence  of  the  positron  as  the  antiparticle  of  the  elec¬ 
tron  in  1928.  In  1932,  the  first  experimental  indications  of  an  unknown  particle  were  found 
in  cloud-chamber  photographs  of  cosmic  rays,  and  this  particle  was  later  identified  as  the 
positron.  Annihilation  of  the  positron  with  electrons  in  matter  was  first  studied  in  the  1940s. 
An  important  early  discovery  was  that  energy  and  momentum  conservation  during  the  anni¬ 
hilation  process  could  be  utilized  to  study  properties  of  solids.  Currently,  positron  annihila¬ 
tion  spectroscopy  (PAS)  experiments  are  widely  used  to  study  materials  defects,  including 
point  defects  in  semiconductors  and  voids  in  composite  materials.  [31] 

The  Air  Force  is  interested  in  PAS  for  a  variety  of  reasons.  For  example,  PAS  has 
been  used  to  measure  damage  levels  in  aerospace  materials.  Used  in  conjunction  with  uni¬ 
axial  tensile  strain  testing  and  strain  controlled  fatigue  testing,  remaining  life  assessments 
were  made  for  components  such  as  turbine  engine  disks  and  blades,  fuel  injector  stems 
inside  auxiliary  power  unit  gas  generators,  and  structural  components.  [68]  There  is  also 
interest  in  evaluating  PAS  as  a  tool  for  probing  nanoscopic  voids  and  defect  structures  of 
energetic  materials  in  order  to  quantify  their  concentration  and  morphology. 

Several  sophisticated  computational  methods,  such  as  the  stochastic  variational  method 
(SVM)  and  the  quantum  Monte  Carlo  (QMC)  method,  have  been  employed  to  accurately 
compute  positron  and  positronium  binding  to  atoms.  [52]  As  in  conventional  electronic 
structure  calculations,  however,  more  approximate  methods  for  computing  electron-positron 
wavefunctions  must  be  employed  as  the  size  of  the  system  becomes  larger.  In  1970, 
Schrader  [51]  presented  a  self-consistent  field  (SCF)  theory  for  a  single  positron  bound 
to  many-electron  systems  that  included  electron-positron  correlation  explicitly  in  the  elec¬ 
tronic  molecular  orbitals  (MOs).  Kurtz  and  Jordan  [33]  studied  positron-molecule  com- 
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plexes  with  HF  theory  in  1981.  Since  then,  several  groups  have  employed  various  methods 
to  study  small  molecular  systems,  and  the  most  well-studied  system  is  positronic  lithium 
hydride,  e+LiH.  [8,39,58]  In  order  to  study  positronic  atomic  and  molecular  systems,  a 
general  method  to  incorporate  positrons  into  MO  calculations  would  be  useful  to  advance 
the  field  of  positron  chemistry. 

The  objective  of  this  dissertation  is  to  introduce  and  illustrate  a  modified  NEO  method 
for  calculations  of  positronic-electronic  systems.  The  NEO  approach  was  developed  to  in¬ 
clude  nuclear  quantum  effects  directly  within  electronic  structure  calculations  and  has  been 
successfully  applied  to  proton  transfer  and  hydrogen  tunneling  problems.  [24,43,44,46,59- 
61,71]  Within  the  framework  of  the  extension  of  the  NEO  method  to  positronic  systems, 
a  single  positron  is  treated  quantum  mechanically  in  the  General  Atomic  and  Molecular 
Electronic  Structure  System  (GAMESS)  program.  [49]  At  the  NEO-HF  level  of  theory,  the 
positron  is  treated  in  the  same  way  as  are  the  electrons,  and  mixed  positronic-electronic 
wavefunctions  are  calculated  variationally  using  MO  techniques.  Electron-electron  and 
electron-positron  correlation  can  be  calculated  by  MP2  and  CASSCF  theory.  Also,  routines 
for  calculating  electron-positron  annihilation  rates  based  on  NEO-HF  and  NEO-MP2  have 
also  been  implemented  in  GAMESS.  The  FCI  method  is  also  available  within  the  CASSCF 
framework  by  including  all  of  the  electronic  and  positronic  MOs  within  the  active  space  of 
the  calculation. 

Chapter  II  contains  some  background  information  on  PAS,  including  an  overview 
of  positron  transport  and  annihilation  in  condensed  matter.  In  addition  to  traditional  PAS 
techniques,  experiments  involving  VFRs  are  also  discussed.  In  Section  2.2,  methods  for 
modeling  positron  interaction  with  matter  are  presented,  culminating  in  a  description  of  the 
NEO  method  and  the  modifications  required  to  handle  positrons. 

In  Chapter  III,  the  NEO  method  is  applied  to  the  PsH  and  e+LiH  systems.  PsH 
consists  of  a  classical  proton,  two  quantum  electrons,  and  a  quantum  positron.  In  the  e+LiH 
system,  the  lithium  nucleus  and  the  proton  are  treated  classically,  and  the  four  electrons 
and  the  positron  are  treated  quantum  mechanically.  For  the  PsH  system,  positronic  and 
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electronic  basis  sets  are  first  optimized  within  the  NEO  framework  at  the  FCI  level.  These 
basis  sets  are  then  used  to  compute  NEO-MP2  energies  for  PsH.  The  basis  set  dependence 
of  the  total  energies  and  the  electron-electron  and  electron-positron  correlation  energies  at 
the  NEO-MP2  and  NEO-FCI  levels  are  also  assessed.  For  e+FiH,  even-tempered  electronic 
and  positronic  basis  sets  for  PsH  and  Fi  are  first  optimized  at  the  NEO-MP2  and  MP2  levels, 
respectively.  At  the  same  level  of  theory  with  a  reoptimized  positronic  basis  set,  the  PEC  for 
e+FiH  is  calculated  and  the  equilibrium  geometry  and  the  shift  of  the  vibrational  frequency 
caused  by  addition  of  a  positron  to  FiH  is  determined. 

In  Chapter  IV,  the  vibrational  energy  levels  of  some  polar  diatomics  are  calculated 
with  the  modified  NEO  method.  Calculations  of  vibrational  energies  for  positronic  sys¬ 
tems  are  useful  for  explaining  the  enhanced  positron  annihilation  rates  observed  for  some 
molecular  gases.  This  enhancement  has  been  attributed  to  the  existence  of  VFRs. 

The  term  “Feshbach  resonance”  comes  from  the  seminal  paper  of  Herman  Fesh- 
bach  [18]  which  introduces  a  method  for  computing  resonant  cross  sections.  Such  a  reso¬ 
nance  will  occur  in  electron  scattering  experiments  if  the  combined  energy  of  the  incident 
particle  and  the  target  molecule  is  degenerate  (or  nearly  degenerate)  with  the  energy  of  a 
combined  state  of  the  particle  and  the  target  molecule.  The  target  molecule  can  be  in  any 
rovibronic1  state  before  combining  with  the  particle.  Also,  it  is  possible  that  the  state  of  the 
combined  particle/target  system  is  an  excited  rovibronic  energy  level  as  well.  In  essence, 
the  Feshbach  resonance  is  an  enhanced  coupling  to  the  combined  state,  and  it  often  results 
in  an  increased  cross  section  for  an  escape  channel.  For  example,  the  cross  section  for  disso¬ 
ciative  attachment  is  enhanced  if  the  energy  of  the  combined  state  exceeds  the  dissociation 
energy. 

Positron  annihilation  rates  in  molecular  gases  were  first  measured  in  the  1950s  and 
1960s,  [12,  13,  53]  and  the  results  for  oxygen,  helium,  and  nitrogen  were  close  to  what 
was  expected  based  on  annihilation  with  a  free  electron  gas  of  the  same  electron  density. 
Surprisingly,  the  results  for  methane  were  a  factor  of  two  or  three  higher  than  the  rate 

1  rotational,  vibrational,  and/or  electronic 
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expected  for  a  free  electron  gas.  Paul  and  Saint-Pierre  measured  annihilation  rates  for 
hydrocarbons  that  were  20  to  200  times  larger  than  the  free  electron  rate,  with  the  rate 
increasing  rapidly  with  molecular  size.  They  and  others  proposed  the  formation  of  positron- 
molecular  ions  to  explain  these  findings.  [19,45,55] 

Since  then,  several  different  theories  have  been  proposed  to  explain  the  enhanced 
annihilation  rates.  Recent  advances  by  Barnes  et  al.  [2]  in  the  energy  resolution  of  slow 
positron  beams  to  25  meV  full  width  at  half  maximum  (FWHM)  showed  that  positron- 
electron  annihilation  rates  of  molecules  are  strongly  enhanced  at  energies  near  their  funda¬ 
mental  vibrational  energies.  Their  measurements  are  strong  evidence  that  the  enhancements 
are  due  to  the  existence  of  VFRs. 

A  model  for  describing  the  enhanced  annihilation  rates  due  to  VFR  developed  by 
Gribakin  [22]  treats  the  positron  binding  energy  as  a  free  parameter  that  can  be  fit  to  exper¬ 
imental  measurements.  In  their  model,  the  VFR  enhancement  of  annihilation  rates  requires 
a  bound  state  of  the  positron  and  the  target  molecule,  and  the  resonance  occurs  when  the 
energy  of  the  unbound  positron  plus  the  ground  state  molecule  is  nearly  degenerate  with 
the  vibrationally  excited  molecule  and  a  bound  positron: 

Ev=o  T  £-k  —  E\)=\  Gm  (1) 

where  Ev=o  and  Ev=i  arc  the  ground  and  vibrationally  excited  energies  of  the  molecule, 
respectively,  is  the  kinetic  energy  of  the  positron,  and  £/,  is  the  binding  energy  of  the 
positron  to  the  molecule.  [2] 

As  described  in  Section  4.2,  a  more  complete  description  of  VFR  enhancement  of  the 
annihilation  rate  requires  knowledge  of  the  vibrational  energy  levels  of  the  positronic  sys¬ 
tem,  which  in  turn  requires  an  accurate  potential  energy  surface  (PES).  To  date,  PECs  have 
been  computed  for  only  a  handful  of  positronic  diatomics,  including  e+LiH,  e+BeO,  and 
e+LiCl.  Studies  of  larger  polyatomic  systems  will  require  considerable  effort  to  develop 
highly  parallelized  codes  that  utilize  techniques  that  have  been  developed  for  traditional 
electronic  structure  calculations.  In  Chapter  IV,  PECs  for  the  e+LiH,  e+LiF,  and  e+LiCl 
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systems  are  calculated  with  the  NE0-MP2  method  modified  to  handle  positrons.  These 
curves  are  fit  to  Morse  potential  functions  in  order  to  determine  the  vibrational  energy  lev¬ 
els  of  the  systems. 

In  Chapter  V,  the  NEO  method  is  applied  to  the  relatively  large  system  positronic 
dodecahydrododecaborate  dianion,  e~B  to  calculate  the  electronic  and  positronic 

wavefunctions.  The  results  are  used  to  interpret  measurements  of  the  positron  lifetime  in 
pressed  pellets  of  potassium  dodecahydrododecaborate  methanolate,  K2B12H12CH3OH. 
This  large  cage-like  molecule  was  chosen  because  it  will  bind  a  positron  in  a  well-defined 
quantum  state.  Also,  the  highly  symmetric  nature  of  the  molecule  makes  the  calculation  of 
its  electronic  and  positronic  wavefunctions  accessible. 

In  the  icosahedral  borane  molecule,  B12H12,  each  boron  atom  at  the  twelve  vertices 
of  an  icosahedron  is  in  six-fold  coordination,  with  covalent  bonds  to  an  “external”  hydrogen 
atom  and  five  other  “internal”  boron  atoms.  This  unusual  bonding  behavior  for  a  group  IIA 
element  with  a  valence  of  three  results  in  a  charge  accumulation  about  the  center  of  the 
icosahedron’s  20  triangular  faces  rather  than  along  the  lines  that  link  adjacent  boron  atoms. 
Boron  icosahedra  readily  form  dianions  and  are  the  main  constituents  of  a  large  host  of 
insulating  refractory  solids.  For  example,  in  B12P2,  B12AS2,  and  B12O2,  the  B12  dianions 
are  centered  at  the  eight  vertices  of  a  rhombohedron’s  longest  diagonal,  the  c-axis.  Strong 
covalent  bonds  link  six  of  the  boron  atoms  of  each  icosahedron  to  neighboring  icosahedra, 
and  the  remaining  six  boron  atoms  bond  to  the  solid’s  cations.  [16] 

Icosahedral  boron-rich  solids  are  generally  very  hard  and  have  high  melting  temper¬ 
atures.  These  solids  also  survive  extremely  well  in  high  radiation  environments,  and  could 
find  a  variety  of  uses  in  aerospace  applications.  This  resiliency  has  been  attributed  to  a 
“self-healing”  process  in  which  a  boron  atom  that  is  displaced  from  the  icosahedron  leaves 
behind  an  electron,  resulting  in  a  Coulomb  attraction  that  facilitates  recombination.  The 
small  size  of  the  boron  cation  also  aids  in  the  recombination.  [16]  Also,  the  relative  stabil¬ 
ity  of  the  icosahedron  relative  to  the  distorted  anion  caused  by  knock-on  displacement  also 
contributes  to  the  “self-healing”.  [69] 
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Appendix  A  contains  the  mathematical  expressions  for  computing  electron-positron 
annihilation  observables  from  NEO-HF  and  NEO-MP2  wavefunctions.  For  completeness, 
expressions  for  NEO-HF  and  NEO-MP2  energies  and  wavefunctions  are  also  presented. 
In  Appendix  B,  a  sample  of  the  Mathematica®  code  that  was  used  during  the  code  de¬ 
velopment  is  given.  The  final  modifications  and  additions  to  the  GAMESS  program  for 
calculating  positronic  systems  and  annihilation  rates  are  given  in  Appendix  C. 
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II.  Background 

This  dissertation  attempts  to  connect  quantum  mechanical  calculations  of  positronic  sys¬ 
tems  to  experimental  observables  in  PAS,  two  very  unique  areas  of  research.  For  conve¬ 
nience,  the  following  chapter  contains  a  brief  review  of  PAS  and  methods  for  modeling 
positron  interactions  with  matter.  In  addition  to  the  traditional  forms  of  PAS,  positron  anni¬ 
hilation  lifetime  spectroscopy  (PALS)  and  momentum  distribution  techniques,  a  discussion 
of  VFRs  is  presented. 

2.1  Positron  Annihilation  Spectroscopy 

Radioactive  decay  of  22Na  (2.602  year  half-life)  through  emission  of  a  (1 h  particle 
(or  positron),  illustrated  in  Figure  1,  is  the  prominent  source  of  positrons  in  the  laboratory. 
The  primary  path  for  [3+  decay  of  22Na  is  written  schematically  as 

iiNa  — >  joNe*  +  (3+  +  v  (2) 

where  v  is  the  neutrino.  The  neutrino  has  an  extremely  small  interaction  probability  with 
matter,  so  it  is  undetectable  for  all  practical  purposes.  The  fixed  decay  energy,  or  (Lvalue,  of 
0.546  MeV  for  Equation  (2)  is  shared  between  the  (3+  particle  and  the  “invisible”  neutrino. 
The  |3+  particle  thus  appears  with  an  energy  that  varies  from  decay  to  decay  and  can  range 
from  zero  to  the  “beta  endpoint  energy,”  which  is  numerically  equivalent  to  the  Q- value. 
Relaxation  of  the  excited  22Ne  nucleus  results  in  the  emission  of  a  1.27  MeV  “birth”  y- 
quantum.  [28] 


2.602  a 


Figure  1:  Decay  scheme  for  22Na. 
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The  22Na  sources  used  for  benchtop  positron  annihilation  experiments  are  usually  en¬ 
capsulated  in  a  thin  metal  disc  or  sealed  between  two  pieces  of  mylar,  and  a  “source- sample 
sandwich”  configuration  is  normally  used  to  maximize  the  number  of  positrons  that  annihi¬ 
late  in  the  sample.  In  this  configuration,  the  two  samples  must  be  identically  prepared,  and 
for  momentum  distribution  techniques  (described  in  Section  2. 1.2. 2)  their  crystal  lattice 
orientation  must  be  matched.  An  alternative  to  the  “source- sample  sandwich”  configura¬ 
tion,  used  to  reduce  the  source  contribution  to  the  annihilation  radiation,  is  deposition  of 
the  22Na  solution  directly  onto  the  sample  surface. 

2.1.1  Positron  Transport  and  Annihilation  in  Condensed  Matter.  Once  a  positron 
enters  condensed  matter,  it  thermal izes  and  annihilates  with  an  electron  with  a  lifetime  on 
the  order  of  a  nanosecond.  When  the  (1 !  particle  enters  the  material,  its  energy  is  much 
higher  than  thermal,  and  the  energy  transfer  rate  by  core  electron  ionization  is  very  high. 
Thus,  the  positron  energy  decreases  rapidly  through  this  thermalization  process,  which  only 
lasts  a  few  picoseconds.  The  thermalized  positron  diffuses  through  a  crystal  lattice,  scatter¬ 
ing  from  acoustic  phonons,  in  much  the  same  way  as  an  electron  diffuses  in  the  absence  of 
fields.  The  keV  positron  diffusion  length,  L+,  is  about  100  nm. 

In  metallic  solids  and  semiconductors,  the  thermalized  positrons,  at  room  temper¬ 
ature,  are  often  trapped  in  negatively-charged  defect  sites  such  as  vacancies,  vacancy  ag¬ 
glomerates,  and  dislocations.  The  wave  function  of  the  positron  is  localized  in  such  a  defect 
until  it  annihilates  with  an  electron  of  the  immediate  surrounding.  Since  the  electronic  wave 
function  where  the  annihilation  occurs  differs  significantly  from  the  bulk  crystal  electronic 
wavefunction,  the  annihilation  radiation  can  be  used  to  deduce  information  about  the  de¬ 
fect.  [31] 


2. 1.1.1  Positronium  Formation  and  Decay  in  Condensed  Matter.  Positron- 
ium  (Ps),  which  represents  a  bound  state  between  a  positron  and  an  electron,  may  be  formed 
in  or  on  the  surface  of  condensed  matter.  The  Schrodinger  equation  for  Ps  is  identical  to 
that  for  hydrogen,  where  the  reduced  mass  of  the  hydrogen  atom  is  replaced  by  one  half  of 
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the  electron  mass.  As  with  hydrogen,  Ps  is  formed  in  two  states:  the  triplet  (parallel  spins) 
ortho- Ps  and  the  singlet  (antiparallel  spins)  para- Ps.  The  lifetimes  of  free  para- Ps  and 
ortho-Ps  are  125  ps  and  142  ns,  respectively.  [25] 

The  para- Ps  annihilates  intrinsically  (i.e.,  annihilation  between  the  particles  forming 
the  Ps  atom)  mainly  into  two  photons  of  511  keV  (termed  two-photon  annihilation);  how¬ 
ever,  ortho- Ps  annihilates  in  vacuum  into  three  photons  (three-photon  annihilation)  in  order 
to  conserve  spin.  In  matter,  the  picture  is  quite  different  since  the  positron  wave  function 
overlaps  with  electrons  outside  of  the  Ps  atom.  The  annihilation  with  such  electrons  having 
an  antiparallel  spin  decreases  the  lifetime  of  ortho- Ps  by  about  two  orders  of  magnitude  to 
about  1  to  5  ns.  This  process  is  called  pick-off  annihilation.  [31] 

Positronium  formation  is  minimal  in  metallic  and  semiconductor  materials,  since  the 
electron  density  must  be  extremely  low  for  this  to  occur.  In  fact,  delocalized  Ps  has  only 
been  found  in  very  rigid  solids,  such  as  ice,  and  is  usually  found  in  a  defect-free  solid  in  a 
very  localized,  self-trapped  state.  This  self-trapping  occurs  when  the  Ps  atom  pushes  away 
the  surrounding  atoms,  creating  a  cage  for  itself.  In  addition  to  self-trapping,  Ps  can  also 
be  captured  in  structural  defects,  such  as  vacancies  and  vacancy  clusters.  (Ps  formation  has 
been  reported  in  porous  silicon.)  If  no  large  open-volume  defects  are  present,  Ps  may  only 
exist  at  the  semiconductor  surface,  and  its  occurrence  may  be  taken  as  a  measure  of  the 
fraction  of  positrons  diffusing  back  to  the  surface.  [31] 

In  molecular  solids,  Ps  forms  more  readily,  and  the  ortho- Ps  lifetime  can  be  used 
as  a  probe  of  the  molecular  structure  of  these  systems.  Before  annihilation,  the  ortho- Ps 
will  localize  in  a  vacancy  with  a  lifetime  that  is  a  function  of  the  exchange  interaction 
between  the  ortho- Ps  electron  and  the  electrons  bound  to  the  molecules  surrounding  the 
vacancy.  The  exchange  probability  decreases  for  larger  vacancies,  and  the  ortho- Ps  lifetime 
increases. 


2. 1.1. 2  Two-photon  Annihilation  in  Condensed  Matter.  Practically  speak¬ 
ing,  the  implantation  energy  of  positrons  from  an  encapsulated  22Na  source  is  so  high  that 
no  positrons  are  diffusing  back  to  the  surface  and  no  Ps  can  be  formed.  [31]  For  such  a 
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case,  one-photon  annihilation  can  only  occur  near  a  heavy  nucleus  to  absorb  the  recoil  and 
thus  has  a  small  cross-section.  Also,  the  cross-section  for  decay  through  emission  of  three 
or  more  photons  is  small  and  decreases  rapidly  as  the  number  of  photons  increases.  Hence, 
most  positrons  in  condensed  matter  annihilate  with  the  emission  of  two  photons.  [36]  It 
is  the  detection  of  one  or  both  of  these  annihilation  photons  that  is  the  basis  for  PAS  in 
materials. 

2.1.2  Traditional  Positron  Annihilation  Spectroscopy.  In  traditional  PAS  exper¬ 
iments,  two  types  of  information,  lifetime  and  momentum,  are  available.  In  PALS,  the 
lifetime  of  the  positron  in  the  sample  of  interest  is  determined.  In  Doppler  broadening  of 
annihilation  radiation  (DBAR)  and  angular  correlation  of  annihilation  radiation  (ACAR) 
experiments,  components  of  the  momentum  of  the  electron-positron  pair  that  underwent 
annihilation  are  measured.  These  techniques  are  well-established  and  are  powerful  tools 
for  the  analysis  of  defects  in  condensed  matter. 

2. 1.2.1  Positron  Annihilation  Lifetime  Spectroscopy.  In  PALS,  the  time 
lapse  between  the  detection  of  the  1.27  MeV  birth  gamma  and  one  or  both  of  the  annihila¬ 
tion  photons  is  taken  to  be  the  lifetime,  x,  of  the  positron  in  the  sample.  The  thermalization 
time  for  the  positron  is  on  the  order  of  1  ps,  while  the  positron  lifetime  as  a  whole  is  on 
the  order  of  100  ps.  Thus,  the  positron  spends  the  vast  majority  of  its  life  sampling  the 
electronic  structure  of  the  crystal  while  at  thermal  energies  (diffusing).  In  a  defect-free 
metal  crystal,  the  thermalized  positron’s  wavefunction  will  be  very  delocalized,  and  it  will 
overlap  with  the  electronic  wavefunction  of  the  “bulk”  crystal;  however,  as  mentioned  be¬ 
fore,  a  thermalized  positron  may  become  localized  in  a  negatively-charged  trapping  center 
such  as  a  vacancy.  Since  the  trapping  rate  is  dependent  on  the  concentration  of  such  sites 
(the  positron  must  encounter  such  a  site  within  the  ~  1 00  nm  diffusion  length),  and  the 
positron’s  lifetime  in  a  trapping  site  is  inversely  proportional  to  the  electron  density  at  the 
site,  the  lifetime  measurement  can  be  used  to  characterize  both  the  types  of  defects  present 
and  their  concentration.  The  activity  of  the  source  must  be  sufficiently  low  in  order  to  en- 
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sure  that  on  average  only  one  positron  is  in  the  sample  at  any  time.  This  avoids  intermixing 
of  start  and  stop  quanta  originating  from  different  annihilation  events.  [31] 

In  order  to  obtain  the  best  time  resolution,  barium  fluoride,  BaF2,  or  plastic  scintilla¬ 
tors  and  photomultipliers  with  a  short  pulse  rise-time  are  used.  The  time  resolution  of  the 
spectrometer  is  determined  mainly  by  the  scintillator-multiplier  part  and  ranges  between 
180  and  280  ps.  The  practical  consequence  of  this  relatively  poor  resolution  is  that  one 
is  limited  to  the  determination  of  positron  lifetime  components  longer  than  about  50  ps; 
however,  due  to  the  low  jitter  of  such  systems,  the  positron  lifetimes  can  be  determined  to 
an  accuracy  of  about  1  ps. 

The  trapped  positron  states  decay  with  exponential  lifetimes,  where  the  number  of 
exponential  decay  terms  is  the  number  of  types  of  defect  sites  plus  one.  The  intensity  of 
the  longer  lived  component  is  proportional  to  the  defect  concentration.  Positron  lifetimes 
for  many  vacancy-type  defects  have  been  experimentally  determined.  By  comparison  with 
theoretical  calculations,  defect  types  can  be  identified  by  their  specific  positron  lifetimes. 
This  approach  works  best  for  specific  types  of  defects,  such  as  are  generated  by  ion  implan¬ 
tation  in  metals  and  semiconductors.  Decomposition  of  the  exponential  decay  into  various 
lifetimes  is  difficult  if  several  different  types  of  defects  make  significant  contributions  to 
the  spectrum,  as  in  neutron-irradiated  samples.  [31] 

A  given  system  has  only  one  annihilation  rate,  and  the  term  “spin- averaged  annihi¬ 
lation  rate,”  that  is  sometimes  seen  in  the  literature,  has  no  operational  meaning  and  is  not 
directly  measurable.  Regardless,  it  is  a  useful  concept  for  comparing  positron  lifetime  data 
from  different  systems,  and  Schrader  [52]  gives  a  description  of  this  technique.  If  a  positron 
is  in  an  electron-rich  environment  in  which  all  of  the  electron  spins  are  paired  (closed-shell), 
its  wavefunction  is  described  as  virtual  Ps,  in  which  all  of  the  electrons  participate,  one  at  a 
time.  In  such  a  configuration,  the  positron  experiences  electron  spins  parallel  and  antipar¬ 
allel  to  its  own  equally.  As  described  in  Section  2.1.1,  the  parallel  alignment  annihilates 
by  the  slow  three-photon  process.  The  antiparallel  alignment  is  equally  likely  to  become 
quantized  as  either  ortho- Ps  (S  =  0)  or  para- Ps  (S  =  1)  at  the  moment  of  annihilation.  Since 
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Table  1:  Positron  lifetimes  (x)  and  the  corresponding  effective  numbers  of  electrons  for 
water  solutions  of  NaX  (X  =  Cl,  F,  Br,  I)  as  measured  by  Stoll  et  al.  [57]  The  effective 
number  of  electrons  for  each  system  is  computed  by  taking  the  ratio  of  the  measured 
annihilation  rate  (1/x)  to  the  ideal  value  of  the  spin-averaged  annihilation  rate  from 
Equation  (3). 


X 

x  (ps) 

Effective  Number 
of  Electrons 

F 

1238 

0.40 

Cl 

898 

0.56 

Br 

662 

0.75 

I 

625 

0.80 

the  para  annihilation  process  is  much  faster  and  dominates,  the  annihilation  rate,  X,  for  the 
system  is  close  to  one-fourth  that  of  isolated  para- Ps.  This  is  called  the  spin-averaged 
annihilation  rate,  and  its  ideal  value  is 


1 

4 


^5=0  +  4^=1 


«  2.003  ns  1 . 


(3) 


While  the  above  value  is  not  the  annihilation  rate  for  any  real  systems,  an  estimate 
of  the  number  of  electrons  gathered  around  the  positron  in  closed-shell  systems  is  its  an¬ 
nihilation  rate  divided  by  the  rate  on  the  right  side  of  Equation  (3).  This  analysis  has 
been  caried  out  for  PALS  measurements  of  water  solutions  of  NaX  (X  =  Cl,  F,  Br,  I)  by 
Stoll  et  al.  [57]  For  these  systems,  the  annihilation  rate  increases  in  the  expected  order 
(Nal  >  NaBr  >  NaCl  >  NaF).  The  lifetimes  and  corresponding  numbers  of  effective  elec¬ 
trons  are  given  in  Table  1 . 

2. 1.2.2  Momentum  Distribution  Techniques.  As  stated  earlier,  the  mass- 
energy  transformation  of  an  electron-positron  pair  in  condensed  matter  mostly  results  in 
the  emission  of  two  photons.  In  the  center-of-mass  frame  of  reference  of  the  electron- 
positron  pair,  the  two  photons  are  emitted  in  exactly  opposite  directions,  and  the  energy  of 
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each  is  exactly  half  of  the  energy  released  by  the  annihilation  process: 


1  ? 

E  =  -  •  2moc2  =  511  keV,  (4) 

where  mo  is  the  electron  (or  positron)  rest  mass  and  c  is  the  speed  of  light.  [3 1  ]  In  the  labora¬ 
tory  frame,  the  momentum  of  the  electron-positron  pair,  p,  is  transferred  to  the  annihilation 
radiation,  resulting  in  Doppler  broadening  and  a  deviation  from  collinearity  of  the  annihi¬ 
lation  photons.  Either  one  or  both  of  the  annihilation  photons  are  detected  by  high-purity 
germanium  detectors  in  a  DBAR  experiment.  The  coincidence  Doppler  broadening  (CDB) 
method,  in  which  both  photons  are  measured,  results  in  a  reduced  background  and  over¬ 
all  better  resolution.  The  sum  of  the  annihilation  photon  energies,  Ej  =  h\>\  +  /2V2,  is  a 
Doppler-free  measurement  of  the  rest-mass  of  the  electron-positron  pair  less  the  electron 
and  positron  binding  energies:1 


Et  =  2m0c2  -Eb  —  Eb 
~  2/770  C 
=  1022  keV. 


(5) 

(6) 
(7) 


The  difference  in  photon  energies  is  equal  to  the  momentum  of  the  electron-positron  pair 
in  the  direction  of  propagation  of  the  annihilation  photons: 

C  p 

A E  =  hv  1  -  /7V2  =  P  C_  p|r  ,  (8) 

1  et 

where  c  is  the  velocity  of  light  in  the  direction  of  h\\.  For  thermal  energies,  Equation  (8) 
reduces  to  A E  =  p  ■  c.  [23] 

Since  the  deviation  from  collinearity  is  small,  an  approximation  is  made  in  the  liter¬ 
ature,  and  the  Doppler  broadening  of  the  photons  is  related  to  the  component  of  the  mo- 

1  Weber  et  al.  [72]  omit  the  positron  binding  energy  in  their  equation  for  Ej.  Clearly,  it  is  negligible,  but 
it  should  be  included  prior  to  simplification. 
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mentum  parallel  to  the  photon  propagation  direction,  pn,  by  the  equation  A E  =  p  |  c.  The 
component  of  the  momentum  perpendicular  to  the  propagation  direction,  p±,  results  in  a 
deviation,  0,  from  collinearity  of  the  annihilation  photons.  This  deviation  is  measured  in  an 
ACAR  experiment,  and  the  relationship  between  the  measurement  and  the  electron-positron 
momentum  is  0  =  p^_/moc.  [31] 

2.1.3  Vibrational  Feshbach  Resonances  of  Positrons  with  Molecular  Gases.  As 
mentioned  in  Chapter  I,  it  has  been  known  for  some  time  that  certain  molecular  gases 
exhibit  unusually  high  positron  annihilation  rates,  and  recent  advances  in  slow  positron 
beam  experiments  by  Barnes  et  al.  have  confirmed  that  the  increase  in  the  annihilation  rate 
occurs  when  the  positron  that  is  interacting  with  the  molecule  has  an  energy  in  the  range  of 
the  vibrational  modes  of  the  molecule.  [2]  A  model  to  explain  this  phenomena,  which  has 
been  developed  by  Gribakin,  [22]  requires  the  existence  of  VFR  that  are  similar  to  those 
observed  in  electron  scattering  experiments. 

Feshbach  resonance  enhancement  to  inelastic  scattering,  elastic  scattering,  and  dis¬ 
sociative  attachment  (diss.  att.)  in  electron  scattering  experiments  for  a  molecule,  AB,  in  a 
vibrational  energy  level,  t>,  and  a  rotational  energy  level,  J,  can  be  represented  by  a  set  of 
equations  involving  an  intermediate  state 

AB(a>,/)  +  e-(e*)  ->  (AB~)*  inelastic>  AB (a>/,7/)  +  e~(ey) 

AB  (t>,  J)  +  e”  (e*;)  ■  (9) 

diss.  att.  .  __ 

- >  A  +  B 

If  the  coupling  between  the  intermediate  state,  (AB-)*,  and  the  decay  channels  is  strong, 
an  increased  population  of  this  resonance  state  enhances  the  cross  sections  for  the  decay 
channels.  [1] 

As  stated  previously,  VFR  also  explains  the  high  positron  annihilation  rate  of  certain 
molecular  gases.  Of  course,  direct  annihilation  (dir.  ann.)  of  the  positron  with  an  electron 
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in  the  target  molecule  is  always  available 


AB(t ),/)+e+(efc)  ---—->  AB+(t)/,/)  +  2y  (10) 

Also,  an  additional  channel  can  be  included  with  equation  (9)  to  include  resonant  annihila¬ 
tion  (res.  ann.)  of  the  positron  with  an  electron  in  the  target  molecule 

AB(v,J)  +  e+{ek)  ->  (e+AB)*  inelastic,  AB(-o/,/)+e+(ey) 

AB(u,/)  +  e+(e*)  (11) 

-^^AB+  +  2y 

where  (e  AB)*  is  the  positronic  molecule  in  an  excited  rovibronic  state.  If  the  electron- 
positron  wavefunction  overlap  is  enhanced  compared  to  when  the  positron  is  in  a  free  state, 
then  the  annihilation  rate  will  be  enhanced  due  to  population  of  the  intermediate  state.  [1] 

There  is  also  another  channel  leading  to  annihilation  that  is  very  unlikely.  It  involves 
dissociative  attachment  followed  by  annihilation,  which  will  be  called  dissociative  annihi¬ 
lation  (diss.  ann.) 

AB(u,7)  +  e+(£yt)  ->  (e+AB)*  A+  +PsB  A+  +  B  +2y  (12) 

This  channel  is  not  mentioned  in  Ref.  1.  As  discussed  in  Section  2.2.4,  if  the  ionization 
potential  (IP)  is  large,  e+B  is  formed  in  Equation  (12)  instead  of  PsB. 

While  scattering  theory  is  necessary  to  describe  the  interactions  of  slow  positrons 
with  molecular  gases  in  a  rigorous  way,  stationary  state  potential  energy  surfaces  can  pro¬ 
vide  some  very  useful  insights  into  VFR  and  the  associated  positron-molecule  complexes. 
Such  calculations  would  establish  the  stability  of  the  system  and  the  nature  of  the  positron 
wavefunction.  Barnes  et  al.  [2]  were  extremely  judicious  in  measuring  VFR  enhancement 
of  the  annihilation  rate  for  several  highly  symmetric  systems  (e.g.,  benzene  and  acetylene) 
and  molecules  with  a  modest  number  of  particles  ( e.g .,  ammonia  and  methane)  in  hopes 
that  future  modeling  efforts  could  be  directly  compared  to  experiments. 
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2.2  Modeling  Positron  Interaction  with  Matter 

Much  progress  has  been  made  in  the  area  of  positron  annihilation  in  matter  since 
P.A.M.  Dirac  published  his  historic  1927  paper  entitled  “The  Quantum  Theory  of  the  Emis¬ 
sion  and  Absorption  of  Radiation,”  which  opened  the  door  to  quantum  field  theory.  [48]  It 
was  not  until  the  1940s  that  annihilation  of  the  positron  with  electrons  in  matter  was  first 
studied;  however,  it  was  discovered  early  that  energy  and  momentum  conservation  during 
the  annihilation  process  could  be  utilized  to  study  properties  of  solids.  [31]  Early  exper¬ 
iments  with  positrons  focused  on  probing  the  Fermi  surface  of  metals  and  alloys.  [3, 11] 
Eventually,  it  was  discovered  that  positrons  could  be  trapped  in  negatively  charged  defects 
such  as  vacancies,  and  insulator  and  semiconductor  materials  began  to  be  investigated.  The 
study  of  defects  in  compound  and  elemental  semiconductors  now  amounts  to  about  half  of 
the  total  number  of  papers  on  defect  studies  with  positrons.  [31] 

2.2.1  Quantum  Field  Theory  Framework  for  Positron  Annihilation  Spectroscopy. 

In  1950,  DeBenedetti  et  al.  [11]  presented  a  method  to  calculate  (to  within  a  constant)  the 
probability  amplitude,  d>£+5£_(p),  for  the  emission  of  two  photons  with  total  momentum, 
p,  as  a  result  of  the  annihilation  of  an  electron  and  a  positron  with  wave  numbers,  k  and 
k+,  respectively, 

<&*+,*- (P)  =  [  wt+(r)\\fk_(r)e-lvrdr  (13) 

J  R3 

where  t]4±(r)  are  the  coordinate  space  wavefunctions  of  the  annihilating  electron-positron 
pair.2  The  origin  of  Equation  (13)  is  the  two-step  perturbation  theory  derivation  of  the 
annihilation  probability,  which  in  turn  is  based  on  the  interaction  of  a  Dirac  electron  with  the 
quantized  radiation  field  provided  that,  (a)  the  wavefunctions  of  the  intermediate  (virtual) 
states  of  the  process  are  treated  in  the  free  particle  approximation,  and  (b)  the  wavefunctions 
of  the  initial  and  final  states  are  treated  non-relativistically.  Condition  (b)  implies  that  the 
initial  and  final  states  are  represented  by  the  Schrodinger  wavefunctions  multiplied  by  the 

2The  integrals  in  this  section  are  over  all  electronic  and  positronic  coordinates.  For  simplicity,  the  set 
notation  on  the  integrals  will  be  omitted  going  forward. 
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appropriate  four-component  column  vector, 


1 

0 

0 

0 

V*-( r) 

0 

and  \|/*+(r) 

1 

0 

0 

(14) 


which  represent  the  electronic  and  positronic  solutions  to  the  Dirac  four-component  wave 
equation.  Obviously,  this  formulation  assumes  the  electron  and  positron  are  described  by 
free  particle  wave  functions.  For  our  purposes,  we  need  to  be  able  to  include  electron- 
electron  as  well  as  electron-positron  correlation  in  the  calculation  of  our  wavefunctions. 

In  1956,  Ferrell  [17]  presented  the  second-quantization  formulation  of  the  theory, 
which  is  also  laid  out  by  Mijnarends  et  al.  [36]  Also,  Sakurai  [48]  presents  an  even  more 
complete,  covariant  formulation;  however,  Ferrell’s  derivation  is  followed  here.  The  decay 
of  a  low-energy  electron-positron  pair  is  a  second-order  process  which  proceeds  via  an 
intermediate  state  in  which  both  particles  and  one  photon  are  present.  In  view  of  the  large 
momenta  and  energies  of  the  annihilation  quanta  (and  hence  the  large  recoil  of  the  scattered 
particle  in  the  intermediate  state)  the  transition  matrix  element  is,  to  a  good  approximation, 
independent  of  the  (small)  initial  momentum  of  the  scattered  particle;  the  same  holds  for 
the  transition  from  the  intermediate  to  the  final  state.  Thus,  as  is  customary  in  quantum 
electrodynamics,  we  employ  completeness  and  sum  over  the  intermediate  states  and  the 
operator,  producing  a  final  state  containing  two  photons  with  total  momentum  p, 


^'(P)  =  ££«(Pi)MP2)8Pi+P2,p  (15) 

Pi  P2 

where  a(pi)  and  b(vi)  are  the  electron  and  positron  annihilation  operators,  and  8Pl+P2,p  is  a 
Dirac  delta  function.  With  the  aid  of  the  position-space  field  operators  \|/_(ri)  and  \|/+(r2) 
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defined  by 


a(pi)  =  V  l^2  J e  'Pl'riV-(ri)^ri 

(16) 

b(  P2)  =  V-/2  /  ^ — zp2  - r2  xj/+  ( r2 )  z/r  2 

(17) 

where  V  is  the  quantization  volume,  the  operator 

H'(  p)  =  j  <?~'p'r\|/_(r)\|/+(r)r/r  (18) 


may  be  formed. 

The  application  of  H'(  p)  to  an  initial  electronic  wave  function  that  is  a  Slater  de¬ 
terminant  of  orthonormal  one-electron  wave  functions  yields  as  many  terms  as  there  are 
electrons.  Each  term  is  a  Slater  determinant  of  next  lower  degree  and  is  multiplied  by  a 
numerical  factor  identical  to 

J  e~zpr(f)e'(r)(|)/;’(r)z/r  (19) 

where  the  annihilators  in  Equation  (18)  are  replaced  by  the  “wavefunction  product,”  which 
signifies  the  electron  and  positron  wavefunctions  evaluated  at  the  same  point.  This  leads 
to  the  conclusion  that  the  momentum  distribution  of  the  two-photon  states,  p2y(p),  arising 
from  the  annihilation  of  the  electron-positron  pair  is  obtained  by  squaring  the  absolute  value 
of  the  Fourier  transform  of  the  “wavefunction  product”: 


P2Y(P)  =  N 


j e  'p'r(|)e(r)(|);;’(r)Jr 


(20) 


where  N  is  a  normalization  constant  to  be  determined  later.  [17]  The  p2^(p)  function  is 
often  referred  to  as  the  two-photon  momentum  density  (TPMD)  in  the  literature. 

The  total  annihilation  rate  is  obtained  by  taking  the  matrix  element  of  H' (pi)  between 
the  initial  and  final  states,  squaring  the  absolute  value,  and  summing  over  all  final  states  of 
the  matter  system  as  well  as  over  all  values  of  p.  The  result  is  proportional  to  the  expectation 
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value,  over  the  initial  state,  of  the  operator 


/(V-MV-M)  •(¥*+(>•)¥*+(>•))*.  (21) 

This  is  simply  the  electron  density  operator  at  the  position  of  the  positron,  averaged  over 
the  positron  position.  Thus, 


X  =  T  1  =  nJ  n~(r)n+(r)dr  (22) 

where  n~(+)( r)  denotes  the  electron  (positron)  density.  [17]  In  a  homogeneous  electron  gas 
of  density  n  the  annihilation  rate  is 


X  =  Tlr^cn-  (23) 

where  r$  =  q2 /m^c2  is  the  classical  electron  radius,  and  c  the  speed  of  light.  This  fixes  the 
constant,  N,  to  n r^c.  [36] 

2.2.2  Calculation  of  p2  ,/  and  X  in  Condensed  Matter.  Several  methods  that  were 
originally  developed  for  electronic  structure  calculations  have  been  adapted  to  calculate  the 
positron  distributions  and  related  observables  in  periodic  systems.  This  has  been  successful 
for  simple  metallic  systems,  where  quantitative  lifetime  calculations  yield  results  that  agree 
with  experiment  to  within  a  few  picoseconds.  [56]  Chang  Lee  [34]  investigated  the  nature 
of  various  approximations  commonly  made  in  the  evaluation  of  p2"''  and  X  made  in  solid 
state  calculations.  He  has  shown  that  the  Coulomb  interaction  between  the  electrons  may 
be  treated  separately  from  the  interaction  leading  to  the  annihilation  process.3  Furthermore, 
the  reduction  of  the  annihilation  process  in  an  n-clcctron  system,  described  by  a  determi- 
nantal  wavefunction,  to  a  one-electron  problem  is  shown  to  be  equivalent  to  neglecting  the 
possibility  that  the  annihilation  of  an  electron  from  a  specific  state  is  accompanied  by  the 
transition  of  another  electron  into  this  state,  i.  e. ,  the  wavefunctions  of  the  other  electrons  are 

3For  annihilation  of  Ps,  the  shift  for  the  ground  state  energy  is  only  360  /./eV,  and  the  broadening  due  to 
the  coupling  with  |/)  is  no  more  than  ~  h/ 125  ps  «  5/J&V.  [52] 
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not  allowed  to  change  in  the  annihilation  process.  This  amounts  to  reducing  Equation  (20) 
to  a  sum  over  all  Na  occupied  electron  states: 


No 

p2y(p)  =  N  £ 

7=1 


e  'p'r(|)';-(r)(|)+(r)c/r 


(24) 


In  Equation  (24),  we  have  essentially  ignored  all  possible  correlation  effects.  This  form  of 
p2\  or  the  TPMD,  is  the  foundation  for  most  of  the  existing  theoretical  momentum  density 
work  in  solids,  and  is  usually  referred  to  as  the  independent  particle  model  (IPM).  [36] 

The  zero  positron  density  limit  (ZPDL)  is  the  most  frequently  used  theoretical  ap¬ 
proach  for  treatment  of  positrons  in  materials.  It  relies  on  the  fact  that  the  electronic  struc¬ 
ture  of  the  studied  system  is  not  influenced  by  the  presence  of  positrons  provided  that  the 
positron  density  is  negligible  everywhere  in  the  system.  This  approximation  is  exactly  valid 
for  delocalized  positrons  in  infinite  defect-free  systems.  For  a  trapped  (localized)  positron, 
this  approximation  is  not  fulfilled,  but  still  the  ZPDL  represents  in  many  cases  a  reasonable 
approximation.  In  most  applications  of  the  ZPDL,  the  electronic  structure  of  the  studied 
system  is  first  determined,  then  the  positron  potential  is  calculated  as  a  sum  of  two  parts 


V+(r)  =  -Wr)  +  WMr)].  (25) 

Several  forms  of  Vcorr[n-{ r)]  are  used  for  practical  calculations.  Using  this  potential,  the 
Schrodinger  eigenvalue  equation  for  positrons  is  solved  in  order  to  find  the  positron  energy 
and  wave  function,  and  it  is  assumed  that  positrons  occupy  the  lowest  energy  level  due  to 
fast  thermalization.  [56] 

The  form  of  the  potential  most  commonly  used  in  solid  state  electronic  structure 
calculations,  the  linear-muffin-tin  orbital  (LMTO),  is  well  suited  for  electrons,  but  it  is  less 
suitable  for  describing  positron  distributions  in  the  interstitial  region.  Although  it  works 
well  for  bulk  properties,  such  as  positron  affinity,  it  is  especially  problematic  for  open 
structures  that  are  difficult  to  treat  in  the  atomic  sphere  approximation  (ASA).  [4] 
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A  group  at  Lawrence  Livermore  National  Laboratory  (LLNL)  has  modeled  positron 
distributions  in  metals  and  alloys  using  a  finite  element-based  approach,  which  combines 
the  favorable  properties  of  basis-set  and  real-space-grid  approaches.  Their  method  is  ca¬ 
pable  of  treating  very  large  systems  of  thousands  of  atoms  with  arbitrary  accuracy.  Also, 
the  full-potential  approach  makes  no  approximations  to  the  shape  of  the  positron  potential, 
in  contrast  to  the  ASA-based  approaches.  The  solutions  to  the  Schrodinger  equation  are 
described  in  terms  of  strictly  local,  piecewise  polynomial  basis  functions,  and  the  unit  cell 
is  partitioned  into  subdomains  called  elements.  The  accuracy  of  this  representation  can 
be  improved  systematically  by  increasing  the  order  of  the  polynomials  or  the  number  of 
elements-all  the  advantages  and  flexibility  of  a  variational  basis-set  method.  Also,  finite 
element  methods  by  nature  are  very  scalable.  [56] 

The  application  of  the  finite  element  method  requires  a  positron  potential  in  order  to 
calculate  the  positron  wavefunction,  and  this  potential  is  obtained  by  Sterne  et  al.  [56]  from 
overlapping  atomic  calculations.  The  electrostatic  interactions  with  the  electrons  and  the 
nuclei  provide  the  dominant  part  of  the  potential,  and  this  is  obtained  by  overlapping  atomic 
electrostatic  potentials.  The  remaining  electron-positron  correlation  potential  is  taken  from 
a  local  density  approximation  (LDA)  form  where  the  potential  depends  only  on  the  electron 
charge  density,  also  obtained  by  overlapping  atomic  charge  densities.  So  far,  the  method 
lacks  electron-positron  charge  self-consistency  (planned  for  future).  The  method  compares 
well  to  LMTO-ASA  calculations  of  metals,  where  they  looked  at  positron  lifetimes  in  met¬ 
als  and  a  few  monovacancies  (Cu,  Al,  Ag).  They  also  applied  the  method  to  positrons  in 
potassium-doped  fullerenes.  [56] 

As  mentioned  previously,  the  calculation  of  the  TPMD  is  the  basis  for  most  theoret¬ 
ical  work  in  positron  annihilation  spectroscopy;  however,  when  the  electron-electron  and 
electron-positron  correlation  effects  are  taken  into  account,  the  interaction  of  the  particles 
with  the  lattice  is  extremely  complicated.  For  this  reason,  the  problem  is  usually  discussed 
in  terms  of  an  LDA,  as  in  the  LLNL  finite  element  approach.  In  this  approach,  the  electron 
density  is  assumed  to  vary  slowly  over  the  unit  cell  and  can  be  considered  locally  constant. 
In  other  words,  the  problem  is  reduced  to  a  single  positron  in  a  locally  homogeneous  gas 
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of  free  electrons.  This  is  a  reasonable  approach  for  metals,  but  breaks  down  in  situations 
where  the  positron  detaches  itself  from  its  screening  electron  cloud  (a  positron  trapped  in 
the  image  potential  at  a  surface)  or  where  the  spatial  extent  of  the  screening  cloud  is  com¬ 
parable  to  that  of  the  positron  state  (a  positron  trapped  in  a  defect).  For  these  situations,  a 
two-component  density-functional  theory  which  includes  the  local  response  of  the  electron 
gas  to  the  perturbing  localized  e+  charge  leads  to  two  coupled  Schrodinger-type  equations 
which  must  be  solved  self-consistently.  In  this  formalism,  the  pile-up  of  electron  charge 
results  in  an  enhancement  factor,  y[n_(r)],  which  must  be  included  in  the  calculation  of  X 
and  p2^  [36] 


X  —  x  1  =  nr^c  J  n-(r)n+(r)y[n-(r)]dr 
P2Y(P)  =  nrf)C  £  [  e-ip'r$ej(r)§+  (r)y[nj(r)]di 

7=1  J 


(26) 

(27) 


2.2.3  Including  Electron-Positron  Correlation.  Two  main  hurdles  to  overcome 
in  calculating  p2Y  and  X  for  positrons  in  condensed  matter  are:  (1)  the  inclusion  of  electron- 
electron  and  electron-positron  correlation  effects  in  the  calculation  of  (|)e  and  §p,  and  (2) 
the  inclusion  of  relaxation  of  the  nuclear  coordinates  around  the  localized  positron.  In  this 
section,  methods  for  handling  problem  (1)  are  discussed. 

D.  M.  Schrader  published  an  excellent  review  of  the  knowledge  of  chemical  com¬ 
pounds  that  contain  positrons  or  Ps,  in  which  he  covers  some  elementary  physics  and  es¬ 
tablishes  the  kind  of  quantum  mechanics  (QM)  that  can  be  profitably  applied  to  mixed 
electron-positron  systems.  [52]  The  methods  that  could  be  considered  for  solving  the  electron- 
positron  correlation  problem  are: 


•  SVM 

•  QMC 

•  “traditional”  quantum  chemistry  methods  ( e.g .,  HF  and  Cl) 
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Also,  all  of  the  binding  energies  and  annihilation  rates  that  are  known  for  atomic  and  molec¬ 
ular  systems  are  listed  and  discussed.  It  is  noted  that  for  atomic  systems,  most  attention  has 
been  paid  to  the  families  on  the  left  and  right  edges  of  the  periodic  table,  leaving  the  inter¬ 
esting  middle  part  less  well  understood. 

The  fact  that  the  positron  has  the  mass  of  an  electron  but  the  charge  of  a  proton  has  se¬ 
rious  consequences  for  quantum  chemists  trying  to  calculate  mixed  electron-positron  wave 
functions:  (a)  the  familiar  Born-Oppenheimer  approximation  cannot  be  used  for  positrons, 
which  must  be  treated  as  distinguishable  electrons;  (b)  electron-positron  correlation  is  more 
important,  pair  by  pair,  than  electron-electron  correlation;  and  (c)  there  are  always  core 
electrons  (except  for  the  simplest  systems),  but  positrons,  repelled  by  nuclei,  congregate  in 
the  valence  region  and  beyond.  There  are  three  interesting  experimental  observables  that 
can  be  calculated  for  mixed  electron-positron  systems:  binding  energy,  annihilation  rate, 
and  the  TPMD.  Both  the  annihilation  rate  and  the  TPMD  have  already  been  discussed.  A 
rigorous  definition  of  the  binding  energy  is  that  a  mixed  electron-positron  system  is  chemi¬ 
cally  stable  in  some  state  if  the  annihilation  rate  is  greater  than  the  sum  of  all  other  processes 
that  depopulate  that  state.  [52] 

Since  the  positron  has  the  same  spin  magnetic  moment  (except  for  direction)  as 
the  electron,  familiar  tools  such  as  the  Bom-Oppenheimer  approximation  for  nuclei  and 
Russell-Saunders  coupling  for  lepton  spin  in  light  atoms  are  appropriate  in  applications 
to  electron-positron  systems.  In  other  words,  after  straightforward  adjustment  to  accom¬ 
modate  two  kinds  of  electrons,  the  full,  formidable  technology  of  quantum  chemistry  is 
available;  however,  for  accurate  results,  electron-positron  correlation  must  be  accounted 
for,  so  single-particle  methods  such  as  SCF  and  many-body  perturbation  theory  are  not 
directly  useable. 

Of  the  three  possible  ways  of  including  electron-positron  correlation  listed  above, 
the  “traditional”  HF,  Cl,  and  multiconfiguration  self-consistent  field  (MCSCF)  quantum 
chemistry  methods  seem  to  hold  the  most  promise  for  positrons  in  condensed  matter.  Due 
to  the  large  number  of  basis  functions  needed  for  accurate  calculations,  only  up  to  six 
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particles  have  been  treated  by  the  SVM.  The  QMC  method  is  ideally  suited  for  mixed 
systems  because  electron-positron  correlation,  which  is  difficult  to  treat  with  Cl  methods, 
is  automatically  treated  correctly;  however,  systems  of  only  about  10  leptons  are  routinely 
treated.  Also,  nonlocal  operators,  such  as  those  for  calculating  the  annihilation  rate,  are 
problematic. 

The  HF-based  methods  that  have  been  adapted  to  mixed  electron-positron  systems 
are  outlined  in  Section  2.2.5.  The  single-configuration  HF  method  gives  good  binding  en¬ 
ergies  for  simple  polar  molecules,  such  as  diatomic  molecules,  for  which  the  bonding  is 
predominately  ionic,  but  a  proper  treatment  of  electron-positron  correlation  is  required  for 
accuracy  in  calculated  annihilation  rates.  This  correlation  can  be  obtained  with  a  Cl  ap¬ 
proach,  where  the  mixed  electron-positron  wavefunction  is  a  linear  combination  of  electron 
and  positron  determinants  of  spin  orbitals. 

2.2.4  Qualitative  Description  of  the  Positronic  Wavefunction.  If  an  atom’s  IP  is 
below  the  ionization  energy  of  Ps  (6.803  eV  or  0.25  a.u.),  the  system  is  described  well  by 
a  positron  bound  to  the  neutral  atom  (e+X).  Conversely,  if  the  IP  is  larger  than  6.803  eV, 
the  wavefunction  resembles  a  positronium  atom  bound  to  a  cation  (Ps[X+]).  For  atoms 
with  IPs  near  6.803  eV,  there  is  expected  to  be  an  accidental  degeneracy  between  the  e+X 
and  Ps[X+].  In  this  case,  the  atom  will  have  a  large  positron  affinity.  This  prediction  is 
confirmed  by  the  known  data  for  neutral  atoms.  [52] 

2.2.5  Nuclear- Electronic  Orbital  Approach.  Hammes-Schiffer  el  al.  have  devel¬ 
oped  the  NEO  method  [24,44,71]  that  is  able  to  calculate  mixed  nuclear-electronic  wave 
functions.  In  this  method,  both  the  electronic  and  nuclear  molecular  orbitals  are  expressed 
as  linear  combinations  of  Gaussian  basis  functions  [see  Equation  (81)  on  page  75].  The 
advantages  to  this  approach  include: 

•  nuclear  quantum  effects  are  incorporated  during  electronic  structure  calculations 

•  the  Bom-Oppenheimer  separation  of  electrons  and  nuclei  is  avoided 

•  excited  vibrational-electronic  states  may  be  calculated 
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•  its  accuracy  may  be  improved  systematically 

•  incorporated  into  GAMESS  quantum  chemistry  code,  which  is  well-tested 

•  quantum  tunneling  is  handled  with  multiple  centers  for  a  quantum  nucleus 

•  positions  of  nuclear  basis  function  centers  may  be  fixed  or  optimized  variationally 

•  symmetry-adapted  linear  combinations  of  nuclear  molecular  orbitals  are  available 

In  theory,  within  the  NEO  framework,  the  only  difference  between  a  quantum  proton  and 
a  positron  is  the  mass,  and  the  method  is  able  to  model  positronic  systems  after  some 
modifications. 


2.2.5. 1  NEO-HF.  In  the  following  discussion,  the  NEO-HF  method  is 
described,  comparing  it  to  “conventional”  HF  theory  which  only  treats  the  electronic  wave- 
function  quantum  mechanically  (referred  to  simply  as  HF).  In  the  equations,  the  terms 
which  are  unique  to  the  NEO-HF  method  will  be  identified  with  a  box  around  the  expres¬ 
sion  ( i.e .,  |~xj).  Hopefully,  this  approach  will  help  bring  out  the  differences  and  similarities 
between  NEO-HF  and  HF  theory. 

In  the  NEO  approach,  the  system  is  divided  into  three  parts:  Ne  electrons,  Np  quantum 
nuclei,  and  Nc  classical  nuclei.  The  total  Hamiltonian  operator,  Htot,  for  the  quantum  sub¬ 
system  includes  the  kinetic  energy  operators  for  the  electrons  and  quantum  nuclei,  as  well 
as  potential  energy  operators  for  electron-electron,  electron-classical  nuclei,  and  electron- 
quantum  nuclei  Coulombic  interactions  [71] 
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Here,  the  unprimed  indices,  i  and  j,  refer  to  electrons,  the  primed  indices,  i'  and  /,  refer 
to  quantum  nuclei,  and  the  indices  A  and  B  refer  to  classical  nuclei.  The  masses,  charges, 
and  distances  are  denoted  by  M,  Z,  and  r,  respectively,  with  the  appropriate  subscripts.  The 
classical  nuclei  are  still  treated  by  the  Bom-Oppenheimer  approximation,  and  the  Coulom- 
bic  interaction  between  them  is  calculated  at  the  end.  The  one-particle  terms  are  defined 
as  [71] 


he(i ) 


Nc 


-V f 
2  ' 


^4 

'  n 4 


(29) 


hp(i') 


1 

2 


ZaZ? 

ri’A 


and  the  total  Hamiltonian  can  then  be  expressed  as 
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At  the  HF  level,  the  mixed  nuclear-electronic  wavefunction,  TV,/  is  approximated  as 
a  single  product  of  electronic  and  nuclear  determinants  of  spin  orbitals  [71] 


^0/(re,rP)=^(0^(r^) 


(32) 


In  the  above  equations,  ( r'' )  and  <1^  ( rp )  are  antisymmetrized  wave  functions  (determi¬ 
nants  of  spin  orbitals)  representing  the  electrons  and  fermionic  nuclei,  respectively.  Here, 
re  and  rp  represent  the  spatial  coordinates  of  the  electrons  and  nuclei,  respectively.  Accord¬ 
ing  to  the  variational  principle,  the  “best”  HF  spin  orbitals  are  those  which  minimize  the 
electronic  energy.  In  NEO-HF,  the  energy  is  minimized  with  respect  to  both  the  electronic 
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and  nuclear  molecular  orbitals,  and  the  general  total  energy  expression  is  [71] 


where  and  %p,  denote  spin  orbitals  for  the  electrons  and  quantum  nuclei,  respectively.  As 
usual,  the  two-electron  integrals  are  defined  as 

[leilei\lejlej\  =  f  dx  i  j  dx2Xe*  ( 1  )/*•(  1 )  (2)%e[  (2)  (34) 

where  x  indicates  both  the  spatial  and  spin  coordinates.  The  other  two-particle  integrals 
are  defined  analogously.  [For  notational  simplicity,  the  spatial  and  spin  coordinates  are  not 
explicitly  included  in  equations  such  as  Equation  (34).] 

The  total  energy  expression  for  a  restricted  Hartree-Fock  (RHF)  treatment  of  the 
electrons  and  a  high-spin  open-shell  treatment  of  the  quantum  nuclei4  is  given  by  [71] 


Ne/  2  Ne/2Ne/2 


4Analogous  equations  may  be  derived  in  the  same  manner  as  presented  for  a  restricted  open-shell  Hartree 
Fock  (ROHF)  or  unrestricted  Hartree-Fock  (UHF)  treatment  of  the  electrons.  A  low-spin  treatment  of  two 
quantum  nuclei  can  be  formulated  in  a  straightforward  manner.  A  general  treatment  of  low-spin  quantum 
nuclei  requires  a  Cl  approach. 
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where  the  integrals  are  defined  as 


Kj  =  Ae(i)<|/;-(i) 


(36) 


*?/  =  fd  r,vTA'’(lK(l) 


(37) 


(vfV'Kvf)  =/*,/ rfr,VT(l)v|/;(l)-|-V|4*(2)Vf(2)  (38) 

and  analogously  for  two-particle  integrals  involving  the  quantum  nuclei.  Here,  the  spatial 
molecular  orbitals  for  the  electrons  and  quantum  nuclei  are  denoted  l[h'  and  respectively. 


The  Hartree-Fock  equations  can  then  be  derived  using  the  standard  variation  method 
to  minimize  the  energy  in  Equation  (35)  with  respect  to  both  the  electronic  and  nuclear 
molecular  orbitals 

(39) 


(40) 

Here,  the  unprimed  indices  (ji,  V,  o,  and  X)  refer  to  electronic  basis  functions,  and  the 
primed  indices  refer  to  nuclear  basis  functions.  This  leads  to  the  Hartree-Fock- Roothaan 
equations  [71] 
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The  Fock  matrix  elements  may  be  expressed  as  [71] 
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where  the  density  matrix  elements  are  defines  as 

Net  2 


and  the  standard  one-  and  two-particle  parts  are  defined  as 


The  overlap  matrix  elements  are  defined  as  [71] 


The  form  of  the  Fock  matrix  elements  in  Equations  (43)  and  (44)  clearly  illustrates 
that  the  electronic  and  nuclear  Fock  equations  are  coupled  to  each  other.  Specifically,  the 
electronic  Fock  matrix  depends  on  the  electronic  density  matrix  through  the  second  term 
and  on  the  nuclear  density  matrix  through  the  last  term,  while  the  nuclear  Fock  matrix 
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depends  on  the  nuclear  density  matrix  through  the  second  term  and  on  the  electronic  density 
matrix  through  the  last  term.  The  electronic  and  nuclear  Hartree-Fock-Roothaan  equations 
can  be  solved  iteratively  to  self-consistency  utilizing  convergence  accelerators  previously 
developed  for  electronic  structure  theory.  In  the  calculations  of  Webb  et  al. ,  [7 1  ]  the  nuclear 
Fock  equations  are  fully  converged  after  each  step  in  the  iterative  procedure  for  the  solution 
of  the  electronic  Fock  equations. 

2.2. 5.2  Nuclear-Electronic  Correlation  with  NEO.  In  order  to  account  for 
correlation  effects,  NEO-CI  and  a  NEO-MCSCF  methods  are  also  implemented.  In  the 
NEO-CI  method,  the  mixed  nuclear-electronic  wave  function  is  a  linear  combination  of 
products  of  electronic  and  nuclear  determinants  of  spin  orbitals: 

Ne  Nr 

%ot(.re,rP)  =  f  £c7/,<Ff(re)<F£(rp).  (53) 

i  v 

The  energy  is  minimized  with  respect  to  the  Cl  coefficients,  Cw  .  In  the  NEO-MCSCF 
methodology,  the  mixed  nuclear-electronic  wave  function  is  a  linear  combination  of  prod¬ 
ucts  of  electronic  and  nuclear  determinants  of  spin  orbitals,  and  the  energy  is  minimized 
with  respect  to  the  electronic  and  nuclear  molecular  orbitals  as  well  as  the  Cl  coeffi¬ 
cients.  [71]  Dynamical  nuclear-electronic  correlation  is  included  in  the  NEO  method  with 
second-order  perturbation  theory  (NEO-MP2).  The  details  about  how  NEO  was  modified 
for  positronic  systems  are  given  in  Section  3.1  and  Appendix  A. 
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III.  Modeling  Positrons  in  Molecular  Electronic  Structure 

Calculations  with  the  Nuclear-Electronic  Orbital  Method 

In  this  chapter,  the  modifications  that  were  necessary  to  treat  positrons  with  the  NEO 
method  are  discussed.  The  modified  NEO  code  is  applied  to  the  PsH  and  e+LiH  sys¬ 
tems,  and  positronic  basis  sets  for  PsH  and  e+LiH  are  developed.  The  utility  of  the  NEO 
method  for  modeling  positronic  systems  is  illustrated  by  computing  the  PEC  for  e+LiH  at 
the  NEO-MP2  level. 

3.1  Theory  and  Computational  Method 

3.1.1  Nuclear- Electronic  Orbital  Formulation.  As  discussed  in  Section  2.2.5, 
the  original  NEO  method,  which  is  incorporated  into  a  recent  version  of  the  GAMESS 
code,  [49]  includes  nuclear  quantum  effects  directly  within  electronic  structure  calcula¬ 
tions.  It  has  been  used  mainly  to  treat  protons  quantum  mechanically.  For  the  special 
case  of  systems  with  Ne  paired  electrons,  a  single  quantum  proton,  and  Nc  classical  nuclei, 
previous  studies  [59, 60]  illustrate  that  NEO-MP2  calculations  with  a  NEO-HF  reference 
Hamiltonian,  defined  as 


capture  more  electron-proton  correlation  than  analogous  calculations  with  a  reference  Hamil¬ 
tonian  that  includes  the  proton-proton  interaction  term.  This  trend  is  also  expected  to  be 
true  for  electron-positron  correlation.  In  equation  (54),  the  unprimed  indices,  i  and  j,  refer 
to  electrons,  the  primed  indices,  i'  and  /,  refer  to  quantum  protons,  and  the  index,  A,  refers 
to  classical  nuclei.  The  charges  and  distances  are  denoted  by  Z  and  r,  respectively,  with  the 
appropriate  subscripts.  Takatsuka  and  Ten-no  [65]  used  the  Hamiltonian  in  Equation  (54) 
in  their  MP2  calculations  of  PsH  and  PsF. 


31 


In  principle,  modifying  the  NEO  method  in  GAMESS  for  the  calculation  of  positronic 
systems  is  as  simple  as  substituting  the  proton’s  mass  with  that  of  the  positron.  Since  the 
initial  implementation  of  NEO  in  GAMESS  was  developed  for  modeling  quantum  effects 
of  nuclei,  however,  the  original  code  did  not  allow  nuclear  basis  functions  to  be  centered  on 
classical  nuclei,  where  the  electronic  basis  functions  are  located.  Due  to  the  diffuse  nature 
of  the  positronic  wavefunction,  the  optimal  configuration  for  positronic  basis  functions  is  to 
be  centered  on  classical  nuclei  with  the  electronic  basis  functions.  The  code  was  modified 
to  allow  for  this  situation  in  the  extension  of  the  NEO  method  for  the  calculation  of  mixed 
positronic-electronic  wavefunctions. 

In  the  resulting  modified  NEO-HF  method,  the  energy  corresponding  to  the  single- 
configurational  mixed  positronic-electronic  wavefunction  is  minimized  with  respect  to  the 
MOs.  In  the  NEO-CASSCF  method,  the  energy  is  minimized  with  respect  to  the  MOs,  as 
well  as  the  configuration  interaction  (Cl)  coefficients,  including  all  possible  Cl  configura¬ 
tions  that  result  from  the  chosen  positronic  and  electronic  active  spaces  in  an  analogous 
manner  to  the  existing  electronic  structure  method  CASSCF.  Within  the  NEO-CASSCF 
framework,  if  all  of  the  quantum  particles  (i.e.,  electrons  and  positrons)  in  the  system  are 
active  and  the  active  space  includes  all  of  the  available  MOs,  then  the  calculation  is  termed 
NEO-FCI.  In  this  case,  the  energy  is  minimized  with  respect  to  only  the  Cl  coefficients. 
Dynamical  electron-electron  and  electron-positron  correlation  effects  are  included  in  the 
NEO  framework  using  second-order  perturbation  theory  (NEO-MP2).  The  NEO-HF  and 
NEO-CASSCF  formulations  are  presented  in  [71],  and  the  NEO-MP2  method  is  presented 
in  [60], 

3.1.2  Positron  Basis  Set  Development.  In  addition  to  modifying  the  existing  NEO 
code  in  GAMESS,  new  positronic  and  modified  electronic  basis  sets  are  needed  before  ap¬ 
plying  NEO  to  a  molecular  positronic-electronic  system.  For  PsH,  the  basis  function  ex¬ 
ponents  in  [6s],  [6slp],  [6s2p],  [6s3p],  [6s2pld],  and  [6s3pld]  basis  sets  for  both  electrons 
and  the  positron  were  optimized  at  the  NEO-FCI  level,  using  the  same  size  basis  sets  for 
the  electronic  and  positronic  wavefunctions.  These  particular  basis  set  sizes  were  chosen 
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for  direct  comparison  to  results  in  [64],  in  which  basis  function  exponents  for  both  elec¬ 
trons  and  the  positron  were  optimized  using  a  fully  variational  Cl  method.  The  optimized 
electronic  and  positronic  basis  sets  for  PsH  are  then  used  to  compute  NEO-MP2  energies. 
The  effect  of  the  basis  set  size  on  the  amount  of  electron-electron  and  electron-positron 
correlation  energy  captured  is  discussed  in  Section  3.2. 

In  addition,  even-tempered  electronic  and  positronic  basis  sets  for  Li  and  PsH,  re¬ 
spectively,  were  determined  at  the  MP2  and  NEO-MP2  levels.  Note  that  the  variational 
theorem  does  not  apply  to  the  second-order  perturbation  energy,  which  is  not  an  expecta¬ 
tion  value  of  the  Hamiltonian.  Nevertheless,  as  noted  by  Krishnan  et  al.  ,  [32]  this  method 
is  useful  for  including  correlation  in  basis  set  development.  In  the  even-tempered  scheme, 
the  radial  functions  of  the  primitives  are  chosen  such  that  the  kth  exponent,  C,k  z,  of  the  set 
of  Gaussian  primitives  of  symmetry  type  l  is  specified  with  the  even-tempered  parameters 
(X/  and  [1^  by  the  equation 

£*,/  =  cc/Pf-  (55) 

Starting  with  an  even-tempered  basis  on  H~  and  Li  consisting  of  six  s-type  Gaussian 
primitives  [6s],  as  and  fis  are  optimized  as  a  function  of  the  MP2  energy  using  the  QDFIT2 
program.  [50]  The  optimization  procedure  is  similar  to  that  of  Schmidt  and  Ruedenberg 
in  that  Gaussian  primitives  of  each  type  are  systematically  added  to  the  basis  set  until  the 
improvement  in  the  MP2  energy  falls  below  a  specific  threshold.  This  initial  basis  set  is  then 
expanded  by  adding  s-functions,  one  at  a  time,  and  the  as  and  [)s  are  re-optimized  using  the 
optimum  parameters  from  the  previous  iteration  as  the  initial  guess.  The  shell  is  considered 
full  when  the  MP2  energy  decreases  by  less  than  0. 1  millihartree.  This  procedure  is  then 
repeated  for  p-  and  d-type  Gaussian  primitives,  beginning  with  three  functions  in  each  of  the 
higher  angular  momentum  shells.  All  even-tempered  parameters  are  optimized  at  each  step. 
Thus,  the  final  step  involves  a  six-parameter  optimization  (i.e.,  a /  and  [1/  for  l  =  s,  p,  d)  for 
each  electronic  basis  set.  In  some  instances  where  four  or  more  even-tempered  parameters 
are  optimized,  the  potential  energy  surface  is  found  to  be  very  flat,  and  the  QDFIT2  program 
is  not  successful  in  finding  the  minimum  of  the  MP2  energy.  For  these  cases,  the  Hooke- 
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Jeeves  generalized  pattern  search  algorithm,  implemented  in  the  GenOpt  program,  [73]  is 
used  to  locate  the  optimum  values  for  each  of  the  a /  and  [3/ . 

The  even-tempered  electronic  and  positronic  basis  sets  for  PsH  are  then  optimized 
by  starting  with  the  electronic  basis  sets  developed  for  H  and  an  initial  even-tempered 
positronic  basis  set  consisting  of  three  s-type  Gaussian  primitives  [3s].  The  positronic 
basis  set  size  is  then  increased  using  the  same  methodology  as  prescribed  above  while  the 
electronic  basis  set  size  is  held  fixed  at  the  size  optimized  for  H  .  All  even-tempered 
parameters  for  both  electrons  and  positrons  are  optimized  at  each  step,  ultimately  resulting 
in  a  12-parameter  optimization  (i.e.,  a/  and  [1/  for  /  =  s,  p,  d  for  both  the  electrons  and 
the  positron)  to  obtain  the  final  mixed  electronic-positronic  basis  sets.  After  the  optimum 
positronic  basis  set  size  was  found  for  PsH,  the  electronic  basis  set  size  was  increased  in 
each  shell  and  the  parameters  were  re-optimized  to  confirm  that  the  electronic  basis  set 
size  was  still  optimum.  The  resulting  even-tempered  basis  sets  were  used  to  compute  the 
optimized  geometry  and  vibrational  frequency  of  e+LiH. 

3.1.3  Annihilation  Rate.  Using  wavefunctions  obtained  with  the  NEO  method, 
electron-positron  annihilation  rates  can  be  computed  at  the  NEO-HF  and  NEO-MP2  levels. 
Neglecting  three-photon  annihilation,  the  electron-positron  annihilation  rate  for  a  bound 
state  wavefunction,  43),  consisting  of  Ne  electrons  and  a  single  positron  is  given  by  [21] 

r  Ne 

X  =  %rlc  /  8(if  —  rp)  |vP0(re,rp) \2 dreclrp  (56) 

'  i=\ 

where  the  integration  is  over  all  electronic  coordinates  and  the  positronic  coordinate. 

At  the  NEO-HF  level,  for  N  doubly  occupied  electronic  MOs,  Equation  (56)  simpli¬ 
fies  to 

N 

Xhf  =  2t irlc^Suvv  (57) 

i=  1 

where  Syy  is  the  four-center  integral, 

Siji'f  =  y>MrHj(r)MrH/(r)dr  (58) 
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ro  is  the  classical  electron  radius,  c  is  the  speed  of  light,  and  fann  is  the  /(/') th  electron 
(positron)  MO;  again,  unprimed  (primed)  indices  denote  electron  (positron)  MOs.  Note 
that  the  spatial  coordinates  in  the  four  MOs  in  equation  (58)  are  the  same  because  of  the 
Dirac  delta  function  in  Equation  (56)  and  that  has  units  of  a.u.  3. 

Within  the  NEO-MP2  framework,  the  first-order  correction  to  the  annihilation  rate  is 


(alV) 


—4 tu-qC  V  ■ 


SarV 


(59) 


where  the  summation  is  over  the  RHF  (restricted  Hartree-Fock)  occupied  and  virtual  elec¬ 
tron  MOs  ( a  and  r,  respectively)  and  the  virtual  positron  MOs  (/).  (H'\j f)  is  the  electron- 
positron  Coulomb  integral,  and  is  the  eigenvalue  for  the  /th  (/'th)  electron  (positron) 
MO.  The  NEO-MP2  annihilation  rate  is  then  given  by  XMP2  =  XnF  +  V  1 The  module  for 
computing  annihilation  rates  based  on  Equations  (57)-(59)  has  been  incorporated  into  NEO 
in  GAMESS. 


3.2  Results  and  Discussion 

In  a  positronic-electronic  system,  both  electron-electron  and  electron-positron  corre¬ 
lation  corrections  have  substantial  effects  on  calculated  energies  and  wavefunctions.  For  the 
PsH  system,  the  amount  of  correlation  calculated  with  the  NEO-MP2  and  NEO-FCI  meth¬ 
ods  and  with  different  basis  set  sizes  was  investigated.  In  Table  2,  NEO-HF  and  NEO-MP2 
energies  and  annihilation  rates  are  given  for  PsH  with  [6s],  [6slp],  [6s2p],  [6s3p],  [6s2pld], 
and  [6s3p Id]  basis  sets  with  exponents  optimized  at  the  NEO-FCI  level.  Also  provided  are 
the  electron-electron  and  electron-positron  correlation  energies  recovered  with  NEO-MP2. 
The  total  correlation  energy  recovered  with  NEO-MP2  is  then  compared  to  the  NEO-FCI 
correlation  energy. 

Two  significant  trends  are  evident  from  the  data  in  Table  2.  As  the  basis  set  size 
is  increased,  (1)  the  magnitudes  of  the  electron-electron  and  electron-positron  correlation 
energies  increase,  providing  virtually  all  of  the  improvement  in  the  NEO-MP2  and  NEO- 
FCI  energies  (i.e.,  the  change  in  the  NEO-HF  energy  is  negligible);  and  (2)  the  fraction  of 
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Table  2:  Comparison  of  NEO-MP2  and  NEO-FCI  results  for  PsH.  NEO-HF,  NEO- 

MP2,  and  NEO-FCI  energies  [Chf-  Emp2>  and  EFqi,  respectively]  and  NEO-HF  and  NEO- 
MP2  annihilation  rates  (4IIF  and  AMP2,  respectively]  were  obtained  for  PsH  with  basis 
sets  optimized  at  the  NEO-FCI  level.  The  correlation  energy  recovered  with  NEO-MP2 
[£££p2  -  £mp2  -  E] [F  =  E™ p2  +  £^P2]  and  NEO-FCI  [Eg*  =  EFC I  -  EHF],  the  second- 
order  electron-electron  and  electron-positron  ( E^p2  ]  corrections  that  comprise  the 

NEO-MP2  correction,  and  the  fraction  of  the  correlation  energy  recovered  with  NEO-MP2 
\Em?i/ are  a'so  provided. 


[6s] 

[6slp] 

[6s2p] 

[6s3p] 

[6s2p  Id] 

[6s3p  Id] 

OlF 

-0.666766 

-0.666791 

-0.666783 

-0.666784 

-0.666865 

-0.666872 

T\1P2 

-0.683835 

-0.715107 

-0.721801 

-0.723411 

-0.726725 

-0.728306 

Tfci 

-0.691010 

-0.732176 

-0.743336 

-0.745807 

-0.756408 

-0.758965 

pee 

CMP2 

-0.010649 

-0.020459 

-0.024004 

-0.025103 

-0.025226 

-0.026309 

FeP 

■C'MP2 

-0.006420 

-0.027858 

-0.031014 

-0.031525 

-0.034634 

-0.035125 

Z7COIT 

^MP2 

-0.017070 

-0.048316 

-0.055018 

-0.056628 

-0.059860 

-0.061435 

z-corr 

^FCI 

-0.024244 

-0.065385 

-0.076553 

-0.079023 

-0.089544 

-0.092094 

17 corr  /rcorr 
iZ/MP2//z'FCI 

0.704079 

0.738948 

0.718686 

0.716599 

0.668503 

0.667083 

A,hf  (ns-1) 

0.297218 

0.297585 

0.297870 

0.297660 

0.297895 

0.297736 

lMP2  (ns-1) 

0.323138 

0.380956 

0.395822 

0.400379 

0.413305 

0.417694 

the  correlation  energy  recovered  with  NEO-MP2  versus  NEO-FCI  decreases  slightly.  The 
increasing  values  for  the  electron-electron  and  electron-positron  correlation  energy  seen  in 
the  first  trend  indicate  that  the  larger  basis  set  yields  a  better  set  of  orbitals  for  recovery  of 
dynamical  correlation  through  perturbation  methods.  The  increase  in  the  electron-positron 
correlation  energy  corresponds  to  an  increase  in  the  electron-positron  annihilation  rate.  The 
second  trend  illustrates  that  the  increase  in  the  NEO-MP2  correlation  energy  with  basis  set 
size  is  slower  than  the  increase  in  the  NEO-FCI  correlation  energy.  The  multiconfigura- 
tional  character  of  the  NEO-FCI  wavefunction  can  be  determined  by  examination  of  the 
natural  orbital  occupation  numbers  (NOON).  The  highest  NOON  value  for  the  positron 
changes  from  0.9872  for  the  [6s]  basis  set  to  0.8837  for  the  [6s3pld]  basis,  a  decrease  of 
10.4  %.  This  decrease  indicates  that  the  NEO-FCI  wavefunction  becomes  more  multicon- 
figurational  for  this  choice  of  orbitals  as  the  basis  set  increases. 

Even-tempered  basis  sets  for  H~,  Li,  and  PsH  were  optimized  using  the  procedure 
outlined  in  section  3.1.2.  The  even-tempered  parameters  are  given  in  Table  3.  The  opti- 
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Table  3:  H_,  Li,  PsH,  and  e+LiH  even-tempered  basis  set  parameters  and  associated 

energies  optimized  with  MP2  and  NEO-MP2  methods.  NEO-MP2  positron  parameter  op¬ 
timizations  for  e+LiH  were  carried  out  with  and  without  an  electronic  frozen  core  (FC). 


Basis 

a. 

P,v 

QLp 

ad 

L\1P2 

H“  e“  9s5p4d 

0.004082 

3.12031 

0.018186 

2.74250 

0.033809 

2.77814 

-0.516892 

Li  e-  13s6p4d 

0.010651 

2.65645 

0.066641 

2.77175 

0.329441 

2.81975 

-7.472392 

PsH  e“  9s5p4d 

0.018298 

2.66531 

0.029626 

2.46850 

0.041616 

2.66534 

-0.731866 

e+  6s4p4d 

0.012420 

3.91161 

0.029026 

2.36631 

0.022201 

3.55911 

e+LiH/FC  e+  6s4p4d 

0.009969 

1.58471 

0.004681 

3.30361 

0.013346 

3.25261 

-8.028839 

e+LiH  e+  6s4p4d 

0.007373 

1.76822 

0.004573 

3.32930 

0.016052 

3.31927 

-8.068859 

mum  electronic  basis  set  sizes  for  H  and  Li  were  found  to  be  [9s5p4d]  and  [13s6p4d], 
respectively,  and  the  optimum  positronic  basis  set  size  for  PsH  is  [6s4p4d].  In  general, 
the  optimal  electronic  and  positronic  basis  sets  have  approximately  the  same  number  of 
p-  and  d-type  primitives,  while  the  positronic  basis  set  has  fewer  s-type  primitives  than 
the  electronic  basis.  The  NEO-MP2  energy  with  the  resulting  [9s5p4d-6s4p4d]  basis  set 
is  —0.731866  Hartree,  which  is  0.00356  Hartree  lower  than  the  best  NEO-MP2  result 
achieved  with  the  FCI-optimized  basis  sets  of  Table  2;  however,  it  is  still  0.027099  Hartree 
higher  than  the  best  NEO-FCI  result  given. 

Subsequent  to  this  even-tempered  basis  set  optimization,  the  PEC  for  e+LiH  was 
computed  at  the  NEO-MP2  level  with  the  Li  and  PsH  even-tempered  basis  sets.  The  energy 
of  e+LiH  decreased  significantly  when  the  even-tempered  parameters  for  the  positronic  ba¬ 
sis  set  on  the  hydrogen  atom  and  the  internuclear  distance  were  simultaneously  optimized 
to  minimize  the  NEO-MP2  energy.  The  effect  of  using  a  frozen  core  for  the  Li  atom  was 
also  investigated.  Typically,  a  frozen  core  is  not  used  for  Li  in  electronic  structure  cal¬ 
culations,  but  previous  studies  [8]  suggest  that  the  balance  in  correlation  energy  for  LiH 
and  e+LiH  can  be  improved  by  restricting  the  active  space  of  electrons  to  exclude  the  Is 
shell  for  Li.  With  the  Is  frozen  core  on  Li,  the  dissociation  energy  is  0.537992  eV,  which 
is  much  closer  to  the  SVM  result  of  0.555405  eV  [39]  than  the  all-electron  calculation. 
The  resulting  e+LiH  positronic  basis  sets  with  and  without  the  frozen  core  are  provided  in 
Table  3. 
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Table  4:  LiH  and  e+LiH  MP2  and  NE0-MP2  results.  The  Hartree-Fock  energies  [FhfL 
MP2  energies  [i?MP2L  and  electron-electron  and  electron-positron  correlation  contributions 
to  the  MP2  energies  (£^p2  and  respectively)  are  provided.  Also  given  are  the  bond 
lengths  ( Re  and  Rq),  dissociation  energies  (A),  and  vibrational  energies  (v).  Calculations 
with  a  frozen  Is  electron  orbital  on  Li  are  denoted  with  FC.  Energies  are  in  Hartrees  unless 
otherwise  specified. 


Euf 

zpee 

iZ'MP2 

FeP 

EmP2 

Re(  A) 

tfo(A)" 

A  (eV)fc 

v  (cm  ')" 

LiH/FC 

-7.987240 

-0.028657 

- 

-8.015897 

1.6006 

1.6088 

- 

1400 

e+LiH/FC 

-7.991726 

-0.028425 

-0.008688 

-8.028839 

1.6799 

1.6835 

0.537992 

1146 

LiH 

-7.987210 

-0.069001 

- 

-8.056211 

1.5892 

1.5979 

- 

1410 

e+LiH 

-7.991805 

-0.068397 

-0.008657 

-8.068859 

1.6652 

1.6691 

1.625510 

1164 

"From  [9],  the  experimental  LiH  bond  length  and  vibrational  frequency  are  1.5957  A  and  1406  cm-1, 
respectively. 

fcThe  e+LiH  dissociation  energy  is  computed  for  the  e+LiH  — >  Li+  +  PsH  dissociation  channel,  using  an 
Li+  MP2  energy  of —7.274638  Hartree  computed  with  the  Li  MP2-optimized  [13s6p4d]  even-tempered  basis 
set  and  the  PsH  NEO-MP2  energy  given  in  Table  3. 


A  summary  of  the  results  obtained  with  the  even-tempered  basis  sets  optimized  for 
the  molecular  system  is  provided  in  Table  4.  This  table  includes  the  NEO-HF  and  NEO- 
MP2  energies,  Li-H  bond  lengths  Re  and  Rq,  and  vibrational  energies  (v).  Also  given 
in  the  table  are  the  dissociation  energies  (A)  for  the  lowest-energy  dissociation  channel, 
e+LiH  — >  Li+  +  PsH.  These  calculations  were  performed  both  with  and  without  a  frozen 
core  (FC)  on  the  Li  atom.  The  values  of  Re,  Rq,  and  v  were  determined  by  computing 
PECs  along  the  Li-H  distance,  Ruh,  and  fitting  the  data  to  a  Morse  potential,  as  depicted 
in  Figure  2.  The  Morse  potential  was  determined  with  a  least  squares  method  using  the 
data  points  for  1.25  A  <  Alih  <  2.5  A,  and  the  eigenvalues  and  eigenfunctions  of  this 
Morse  potential  were  computed  analytically.  [5]  The  values  of  Rq  were  obtained  from  the 
average  of  Ruh  over  the  ground  state  vibrational  wavefunction,  and  the  vibrational  energies 
were  determined  from  the  splitting  between  the  lowest  two  vibrational  states  for  this  Morse 
potential.  For  all  basis  sets  and  levels  of  theory,  the  computed  values  for  Rq  and  v  of 
the  non-positronic  LiH  molecule  agree  well  with  the  experimental  values  of  1.5957  A  and 
1406  cm-1,  respectively.  [9]  The  values  of  Rq  and  v  computed  for  e+LiH  with  a  frozen  Is 
core  on  the  Li  atom  are  1.6835  A  and  1 146  cm-1,  respectively.  Thus,  the  vibrational  energy 
of  e+LiH  is  computed  to  be  approximately  30  meV  less  than  that  of  LiH. 
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gure  2:  Comparison  of  LiH  and  e+LiH  MP2  and  NEO-MP2  PECs, 
)re  on  the  Li  atom  and  associated  electronic  and  positronic  basis  sets  fr 
[orse  notential  fits  used  to  comoute  the  vibrational  enemies  are  also  sho\ 


It  is  also  important  to  consider  whether  positron  basis  functions  should  be  centered 
on  only  the  more  electronegative  H  atom  or  on  both  the  H  and  Li  atoms  in  e+LiH.  To 
explore  this  issue,  optimum  electronic  and  positronic  basis  sets  were  found  for  LiPs  using 
the  same  method  that  was  applied  to  PsH  above.  Starting  with  the  LiPs  and  PsH  electronic 
and  positronic  basis  sets,  the  positronic  molecular  basis  set  parameters  and  the  intemuclear 
distance  for  e+LiH  was  determined  at  the  NEO-MP2  level.  The  resulting  minimum  energy 
without  a  frozen  [Is]  core  on  the  Li  atom  was  —8.069102  Hartree,  a  decrease  of  only 
0.000243  Hartree  compared  to  the  calculation  with  positron  basis  functions  on  only  the 
H  atom.  Also,  the  PEC  for  the  system  was  recalculated,  and  the  equilibrium  bond  length 
and  vibrational  energy  were  1.6673  A  and  1159  cm-1,  respectively,  which  are  very  close 
to  the  numbers  previously  obtained.  From  these  results,  one  can  conclude  that  for  e+LiH, 
placement  of  the  positronic  basis  functions  on  only  the  more  electronegative  hydrogen  atom 
is  sufficient. 

3.3  Conclusion 

The  NEO  method  is  not  yet  a  quantitative  tool  for  computing  energies  and  annihila¬ 
tion  rates  for  positronic  systems.  With  NEO,  the  best  energy  and  annihilation  rate  for  PsH 
are  —0.758965  Hartree  and  0.41769  ns-1,  respectively.  Recently,  Mitroy  reported  a  PsH 
energy  of  —0.789196470  Hartree  and  an  annihilation  rate  of  2.47178  ns-1  from  nearly  con¬ 
verged  SVM  calculations.  [37]  The  methods  presented  here,  however,  provide  a  foundation 
upon  which  future  general  methods  for  studying  positronic  systems  and  modeling  large 
positronic-electronic  molecular  systems  can  be  built.  Improvements  to  the  quantitative  na¬ 
ture  of  the  method  can  be  made  by  developing  larger  positron  basis  sets  and  including  more 
electron-electron  and  electron-positron  correlation  energy. 

The  modified  NEO  approach  is  a  potentially  powerful  method  for  computing  mixed 
positronic-electronic  wavefunctions.  Its  utility  is  demonstrated  by  computing  the  PEC  of 
e+LiH,  allowing  the  prediction  of  its  equilibrium  geometry,  vibrational  energy,  and  dis¬ 
sociation  energy.  Also,  the  energy  and  the  annihilation  rate  for  PsH  is  calculated  at  the 
NEO-MP2  level.  In  addition,  the  amount  of  electron-electron  and  electron-positron  corre- 
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lation  energy  captured  with  the  NEO-MP2  and  NEO-FCI  methods  for  PsH  are  compared. 
Finally,  a  systematic  method  for  developing  even-tempered  electronic  and  positronic  ba¬ 
sis  sets  for  NEO  calculations  has  been  demonstrated.  Basis  sets  developed  using  atomic 
calculations  were  found  to  provide  a  reasonable  starting  point  for  molecular  calculations; 
however,  further  optimization  of  the  positronic  basis  set  parameters  was  necessary  to  accu¬ 
rately  describe  the  PEC  of  the  molecule. 


3.4  Supporting  Information 

In  addition  to  the  Hamiltonian  given  in  Equation  (54),  referred  to  in  this  section  as  the 
DIAGZN  Hamiltonian,  there  is  a  second  Hamiltonian  available  in  the  NEO  method.  This 
second  Hamiltonian,  referred  to  here  as  the  RONHF  Hamiltonian,  is  valid  for  Ne  paired 
electrons,  Np  unpaired  high-spin  quantum  protons,  and  Nc  classical  nuclei.  It  includes  the 
kinetic  energy  operators  for  the  electrons  and  quantum  protons  and  the  various  potential 
energy  operators,  including  the  proton-proton  repulsion  term 


Ne 


Nn 


h=  -  EAGEA? 

i  z  r  z 

Nc  Ne  7  Nc  Np  y 

-  LL-+LL- 

Air'A  A?Ti'A 

NP  Np  1 


l>  lyP  1  Ale  Ne  1  Ne  Np 

+  EE,'  EE;  ee; 

i'  i  j>i  r,J  i  i'  '« 


(60) 


Here,  the  unprimed  indices,  i  and  j,  refer  to  electrons,  the  primed  indices,  i!  and  /,  refer  to 
quantum  protons,  and  the  index,  A,  refers  to  classical  nuclei.  The  charges  and  distances  are 
denoted  by  Z  and  r,  respectively,  with  the  appropriate  subscripts. 

The  NEO-MP2  (with  the  RONHF  Hamiltonian)  and  NEO-FCI  results  for  PsH  are 
compared  in  Table  5.  As  in  Table  2,  the  NEO-MP2  calculations  were  performed  with 
the  basis  sets  optimized  at  the  NEO-FCI  level.  The  ratios  of  the  correlation  energy  cap¬ 
tured  with  the  NEO-MP2  method  to  the  amount  captured  with  NEO-FCI  were  computed 
for  comparison  with  values  obtained  with  the  DIAGZN  Hamiltonian.  It  is  clear  that  for  a 
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Table  5:  Comparison  of  NEO-MP2  (with  RONHF  Hamiltonian)  and  NEO-FCI  results 
for  PsH.  NEO-MP2  energies  (£mp2)  and  annihilation  rates  (XMP2)  are  obtained  for  PsH 
with  basis  sets  optimized  at  the  NEO-FCI  level.  The  correlation  energy  recovered  with 
NEO-MP2  [  E\ip2  =  ^MP2  —  F’hfK  the  second-order  electron-positron  correction  ( ]  , 
and  the  fraction  of  the  correlation  energy  recovered  with  NEO-MP2  [^mpV^fc?]  are  a'so 
listed.  The  NEO-MP2  energies  and  annihilation  rates  listed  here  correspond  to  the  RONHF 
Hamiltonian  that  includes  the  positron-positron  Coulomb-exchange  operator. 


[6s] 

[6s  lp] 

[6s2p] 

[6s3p] 

[6s2pld] 

[6s3pld] 

j?er 

Fmp2 

-0.0051922 

-0.0226576 

-0.0250056 

-0.0254306 

-0.0281093 

-0.0285159 

CmP2 

-0.6826072 

-0.7099069 

-0.7157925 

-0.7173172 

-0.7202002 

-0.7216970 

pcorr 

CMP2 

-0.0158413 

-0.0431163 

-0.0490094 

-0.0505336 

-0.0533355 

-0.0548252 

pcorr  /pcorr 
'c'MP2/£'FCI 

0.6534186 

0.6594205 

0.6402030 

0.6394801 

0.5956376 

0.5953152 

A,MP2  (ns”1) 

0.3190397 

0.3662093 

0.3794839 

0.3838186 

0.3944266 

0.3986460 

Table  6:  PsH  and  e+FiH  even-tempered  basis  set  parameters  and  associated  energies  op¬ 
timized  at  the  NEO-MP2  level  (with  RONHF  Hamiltonian).  NEO-MP2  positron  parameter 
optimizations  for  e+FiH  were  carried  out  with  and  without  an  electronic  frozen  core  (FC). 


System 

Basis 

«s 

P. 

a  P 

Pp 

ad 

Prf 

EmP2 

PsH 

e“  9s5p4d 
e+  6s4p4d 

0.017642 

0.010055 

2.64131 

3.37831 

0.031256 

0.025549 

2.45050 

2.48931 

0.048099 

0.048614 

2.48114 

2.36731 

-0.724795 

e+LiH/FC 

e+  6s4p4d 

0.028535 

2.79625 

0.003695 

3.30505 

0.004343 

3.10865 

-8.027710 

e+LiH 

e+  6s4p4d 

0.008395 

3.42195 

0.003593 

3.32195 

0.004126 

3.14285 

-8.067716 

given  FCI-optimized  basis  set,  NEO-MP2  with  the  DIAGZN  Hamiltonian  captures  more 
electron-positron  correlation  energy  than  NEO-MP2  with  the  RONHF  Hamiltonian.  This 
increase  in  the  electron-positron  correlation  energy  corresponds  to  an  increase  in  the  com¬ 
puted  electron-positron  annihilation  rate. 

The  PsH  and  e+FiH  even-tempered  basis  set  parameters  optimized  at  the  NEO-MP2 
level  with  the  RONHF  Hamiltonian  are  given  in  Table  6.  The  optimum  basis  set  sizes  are 
the  same  as  those  found  with  the  DIAGZN  Hamiltonian  in  Table  3,  and  the  even-tempered 
basis  set  parameters  are  similar  as  well.  The  most  significant  difference  is  in  the  values  of 
a.v  and  [)v  for  e+FiH  (both  with  and  without  the  Is  frozen  electronic  core),  in  which  the 
DIAGZN  values  are  lower. 
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Table  7:  LiH  and  e+LiH  MP2  and  NE0-MP2  results  (with  RONHF  Hamiltonian). 

The  NEO-HF  energies  (E'hfX  NEO-MP2  energies  (£mp2)>  and  the  electron-electron  and 
electron-positron  correlation  contributions  to  the  NEO-MP2  energies  and  C^p9,  re¬ 

spectively)  are  listed.  Also  listed  are  the  equilibrium  bond  lengths  ( Re ),  dissociation  en¬ 
ergies  (A),  and  vibrational  energies  (v).  Calculations  were  accomplished  both  with  and 
without  a  frozen  Is  electronic  core  on  the  Li  atom.  Energies  are  in  Hartrees  unless  other¬ 
wise  specified. 


£hf 

Z7ee 

ZZ'MP2 

FeP 

£'MP2 

f?MP2 

Re  (A) 

A  (eV) 

V  (cm  *) 

LiH/FC 

-7.987229 

-0.028659 

- 

-8.015888 

1.6002 

- 

1401 

e+LiH/FC 

-7.992352 

-0.028438 

-0.006920 

-8.027710 

1.6700 

0.698130 

1175 

LiH 

-7.987200 

-0.069004 

- 

-8.056203 

1.5891 

- 

1411 

e+LiH 

-7.992461 

-0.068441 

-0.006814 

-8.067716 

1.6555 

1.785350 

1192 

The  MP2  and  NEO-MP2  results  for  LiH  and  e+LiH  with  the  RONHF  Hamiltonian 
are  given  in  Table  7.  Comparing  to  the  results  given  in  Table  4  for  the  DIAGZN  Hamilto¬ 
nian,  we  see  that  NEO-MP2  with  the  RONHF  Hamiltonian  gives  less  bond  length  relaxation 
and  a  smaller  decrease  in  the  vibrational  energy  with  addition  of  the  positron  to  LiH.  Also, 
the  calculated  value  for  the  dissociation  energy  with  the  frozen  Is  electronic  core  on  the  Li 
atom  does  not  agree  with  the  SVM  results  as  well. 

In  Figure  3,  the  variation  of  and  £^p2  as  a  function  of  the  Li-H  bond  distance 
is  plotted  along  with  the  £mp2  and  £hf  energies.  While  E^p2  is  fairly  constant  with  Run, 
as  the  system  dissociates  into  Li+  and  PsH,  the  magnitude  of  E^p2  increases  significantly 
and  becomes  equal  to  £^p2.  This  illustrates  the  importance  of  accuracy  in  the  calculation 
of  electron-positron  correlation,  especially  as  the  system  dissociates  into  Li+  and  PsH. 
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Figure  3:  e+LiH  HF  and  MP2  PECs  with  the  electron-electron  and  electron-positron 
correlation  energies  ant'  respectively).  The  DIAGZN  Hamiltonian  with  a  Is 

frozen  electronic  core  on  the  Li  atom  and  basis  sets  from  Table  3  were  used.  Electronic  and 
positronic  basis  functions  were  centered  on  both  the  Li  and  H  atoms.  £^P2  an^  ^MP2  are 
offset  vertically  for  convenience. 
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IV.  Vibrational  Energy  Levels  of  LiX  and  e+LiX  (X  =  H,  F,  Cl) 


4.1  Introduction 

In  Equation  (1),  it  is  assumed  that  the  shape  of  the  PES  of  the  positronic  molecule 
is  unchanged  and  simply  shifted  down  by  £&.  Also,  VFR  which  occur  between  vibrational 
energy  levels  other  than  t)  =  0  and  o  =  1  arc  neglected.  In  a  more  complete  treatment  of 
VFR  theory,  changes  in  the  shape  of  the  PES  upon  addition  of  the  positron  are  allowed,  and 
resonances  between  vibrational  energy  levels  other  than  13  =  0  and  D  =  1  are  not  excluded. 
For  such  a  description,  a  resonance  will  occur  when  the  incident  positron  energy  plus  the 
vibrational  energy  of  the  molecule  is  equal  to  the  energy  of  a  vibrationally  excited  molecule- 
positron  complex 

E\> =n  =  E\)=n/  (61) 

where  Ev=n  is  the  energy  of  the  non-positronic  molecule  in  the  D  —  n  energy  level,  and 
Ev=nf  is  the  energy  of  the  positron-molecule  complex  in  the  D  =  n'  energy  level.  Note 
that  in  Equation  (61),  we  do  not  require  the  non-positronic  molecule  to  be  in  the  ground 
vibrational  state.  Also,  the  resonance  can  occur  for  any  cases  where  Ev=ni  >  Ev=n. 

Thus,  in  order  to  calculate  the  possible  VFR  for  a  given  molecule,  one  must  compute 
the  PES  of  both  the  non-positronic  and  the  positronic  molecule  to  account  for  the  effect  of 
the  positronic-electronic  potential  on  the  vibrational  structure.  Likewise,  if  one  can  measure 
multiple  VFR  for  a  given  molecule  at  different  incident  positron  kinetic  energies,  it  might 
be  possible  to  determine  the  vibrational  structure  (and  hence  the  PES)  of  the  positronic 
molecule.  Such  fidelity  would  allow  for  a  direct  comparison  of  theory  to  experiment,  not 
just  an  experimental  determination  of  £/,. 


4.2  Theory 

The  energy  of  the  x>  =  n  energy  level  of  a  non-rotating  diatomic  molecule  is  given 
approximately  by 


E\)=n  —  (0e 


~(OeXe 


(62) 
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in  which  the  harmonic  and  anharmonic  parameters  are  try  and  coe%e,  respectively.  If  one 
measures  a  VFR  at  a  positron  kinetic  energy  of  £1,  involving  the  D  =  0  state  of  the  non- 
positronic  molecule  and  the  x>  =  p'  state  of  the  positronic  system.  Equation  (61)  becomes 

Ev=o  +  —  Ev=p/ .  (63) 

If  one  measures  a  second  VFR  at  a  positron  kinetic  energy  of  £2  that  is  identified  as  involv¬ 
ing  the  13  =  0  state  of  the  non-positronic  molecule  and  the  l)  =  q'  state  of  the  positronic 
system,  we  get  a  second  equation 


E\>= 0  3“  £2  —  Ey—qi . 


(64) 


Now,  substituting  Equation  (62)  for  the  vibrational  energies,  we  get 


-COe%e  +  £l  =  G>' 


KXe 


(65) 


and 


1  1 

~(£>e-  ~K>eXe+ £2 


CQ„ 


Kx!e 


(66) 


Thus,  if  03(,  and  (tieXe  are  known,  and  one  can  identify  at  least  two  transitions  with  a  com¬ 
mon  vibrational  energy  level  [on  either  side  of  Equation  (61)],  then  co'  and  03',%',  can  be 
determined  and  the  PEC  for  the  positronic  diatomic  is  known.  Using  these  parameters, 
we  are  now  able  to  compute  the  binding  energy  of  the  positron  to  the  ground  state  of  the 
positronic  molecule 


£b 


E\)= 0  Ev= (y 

1  1 

—  ~^eXe 


(67) 

(68) 
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4.3  Computational  Method 

In  this  chapter,  PECs  for  LiX  and  e+LiX  (X  =  H,  F,  Cl)  are  computed  for  their  ground 
electronic  states,  and  vibrational  energies  (including  zero  point  energy  correction)  are  de¬ 
termined  by  fitting  them  to  a  Morse  potential.  The  results  are  then  used  to  predict  the 
possible  VFR  for  these  molecules  using  Equation  (61).  All  calculations  are  done  at  the 
MP2  level  using  the  GAMESS  electronic  structure  code.  [49]  The  e+LiX  systems  are  mod¬ 
eled  with  the  NEO  method  [60,71],  modified  for  the  treatment  of  positrons  as  discussed  in 
Chapter  III. 

Even-tempered  electronic  and  positronic  basis  sets  were  developed  for  H",  PsH,  Li", 
and  LiPs  in  Chapter  III,  and  using  the  same  methodology,  basis  sets  for  F”,  PsF,  Cl"  and 
PsCl  were  developed.  In  the  even-tempered  scheme,  the  radial  functions  of  the  primitives 
are  chosen  such  that  the  Ath  exponent,  'Qcj.  of  the  set  of  Gaussian  primitives  of  symmetry 
type  /  is  specified  with  the  even-tempered  parameters,  oq  and  by  the  equation 

C  k,i  =  CC/P?  (69) 

which  are  optimized  versus  the  MP2  and  NEO-MP2  energies. 

It  was  shown  in  Section  3.2  that  the  positronic  basis  sets  developed  for  atoms  require 
further  optimization  when  used  in  molecular  systems.  For  the  e+LiX  systems,  this  opti¬ 
mization  was  accomplished  by  simultaneously  varying  the  a  and  fi  values  for  the  positronic 
basis  sets  previously  developed  for  the  Li  and  X  atoms  along  with  the  internuclear  distance, 
R[jX-  The  a  and  [1  values  for  the  electronic  basis  sets  are  held  fixed  during  the  optimization. 
In  the  end,  we  are  left  with  a  positronic  “molecular  basis  set”  which  consists  of  the  same 
number  of  s-,  p-,  and  d-functions  as  the  LiPs  and  PsX  basis  sets,  and  we  find  the  equilibrium 
geometry,  Re,  for  the  e+LiX  system. 

4.4  Results  and  Discussion 

The  even-tempered  basis  set  parameters  for  X",  PsX,  Li",  LiPs,  LiX,  and  e+LiX 
and  their  associated  MP2  and  NEO-MP2  energies  are  listed  in  Table  8.  Using  these  basis 
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sets,  PECs  for  the  LiX  and  e+LiX  systems  were  computed  at  the  MP2  and  NEO-MP2 
levels  and  are  shown  in  Figure  4.  The  curves  were  fit  to  a  Morse  potential  to  determine 
the  bond  lengths,  Re  and  Rq,  the  harmonic  and  anharmonic  parameters,  and  the  vibrational 
energies.  The  first  three  vibrational  energy  levels  (o  =  0  through  2)  for  the  non-positronic 
molecules,  the  first  eight  energy  levels  (o  =  0  through  7)  of  e+LiH  and  e+LiF,  and  the 
first  nine  energy  levels  (0  =  0  through  8)  of  e+LiCl  are  also  shown  in  Figure  4.  The 
e+FiX  dissociation  energies  for  the  e+FiX  — >  Fi+  +  PsX  disassociation  channel  were  also 
computed.  A  summary  of  these  results,  along  with  the  experimental  bond  lengths  and 
vibrational  energies  for  the  FiX  and  e+FiX  systems,  are  given  in  Table  9. 

At  1.6856  A,  the  relaxed  e+FiH  geometry  is  approximately  4.8%  longer  than  the 
optimized  FiH  geometry  of  1.6088  A.  In  comparison,  Buenker  et  al.  performed  multirefer¬ 
ence  (MR)  single-  and  double-excitation  configuration  interaction  calculations  on  FiH  and 
e+FiH  and  obtained  a  bond  relaxation  of  10.1%.  Adding  the  MR-Davidson  correction,  they 
obtained  a  bond  relaxation  of  11.4%,  [8]  which  was  closer  to  the  equilibrium  bond  length 
of  1.772  A  reported  by  Strasburger  using  the  explicitly  correlated  Gaussian  method.  [58] 

The  equilibrium  bond  length  for  e+FiF  is  1 .6556  A  or  2.6%  longer  than  the  calculated 
value  for  FiF  of  1.6143  A.  Mella  et  al.  computed  the  energy  and  geometry  of  e+FiF  close  to 
equilibrium  by  means  of  diffusion  Monte  Carlo  (DMC)  simulations  and  obtained  a  e+FiF 
equilibrium  bond  length  of  1.68  A,  [35]  which  agrees  well  with  the  NEO-MP2  results. 
Further  improvement  of  the  electron-positron  correlation  in  the  calculation  will  result  in 
more  relaxation  and  better  agreement.  Also,  the  NEO-MP2  e+FiF  dissociation  energy  for 
the  e+FiF  — ■>  Fi+  +  PsF  channel  is  1.588220  eV,  compared  to  the  DMC  value  of  2.10  eV. 

Using  Equation  (61)  and  the  vibrational  energy  levels  computed  from  the  Morse  po¬ 
tential  fits  to  the  NEO-MP2  PECs  in  Figure  4,  the  positron  kinetic  energies  which  will  result 
in  VFRs  for  the  three  systems  were  determined.  These  are  listed  in  Table  10  by  the  corre¬ 
sponding  FiX  and  e+FiX  vibrational  energy  levels.  From  these  results,  we  see  that  for  FiH 
and  FiF,  VFRs  involving  the  ground  vibrational  state  of  the  nonpositronic  molecule  (l)  =  0) 
are  resonances  with  vibrational  modes  of  o  =  3'  of  the  positronic  systems.  For  FiCl,  the 
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Table  8:  X-,  Li-,  PsX,  LiPs,  and  e+LiX  (X  =  H,  F,  and  Cl)  even-tempered  basis  set 

parameters  and  energies  optimized  at  the  MP2  and  NEO-MP2  levels.  Calculations  for 
systems  containing  Li,  F,  and  Cl  were  carried  out  with  an  electronic  frozen  core. 


Basis 

CXv 

P, 

(Xp 

Pp 

a  d 

Pd 

£mP2 

H-  e-  9s5p4d 

0.004082 

3.12031 

0.018186 

2.74250 

0.033809 

2.77814 

-0.516892 

PsH  e-  9s5p4d 

0.018298 

2.66531 

0.029626 

2.46850 

0.041616 

2.66534 

-0.731866 

e+  6s4p4d 

0.012420 

3.91161 

0.029026 

2.36631 

0.022201 

3.55911 

Li-  e-  14s4p4d 

0.002204 

2.77725 

0.006075 

2.33755 

0.010639 

2.13914 

-7.445067 

LiPs  e-  14s4p4d 

0.010922 

2.59721 

0.015232 

2.16030 

0.023429 

1.91744 

-7.591488 

e+  5s4p4d 

0.007060 

3.89961 

0.015801 

2.03951 

0.011862 

3.87811 

F-  e-  19s9p5d 

0.045316 

2.25429 

0.024415 

2.64280 

0.102926 

2.45140 

-99.739172 

PsF  e-  19s9p5d 

0.032866 

2.36649 

0.033128 

2.56460 

0.075036 

2.58720 

-99.940104 

e+  5s3p2d 

0.010759 

2.89690 

0.032968 

2.92950 

0.061986 

2.90720 

Cl-  e-  24sl7p8d 

0.108252 

2.10290 

0.017951 

2.05620 

0.051060 

2.01310 

-459.756831 

PsCl e-  24sl7p8d 

0.111602 

2.09090 

0.024590 

2.01730 

0.054670 

2.00370 

-459.926481 

e+  5s5pld 

0.003760 

9.11710 

0.025740 

1.98550 

0.050800 

6.16980 

e+LiH  a 
Li  e+  5s4p4d 

0.071319 

2.76127 

0.006019 

3.72273 

0.017703 

5.58951 

-8.029122 

H  e+  6s4p4d 

0.007813 

1.80596 

0.004562 

3.66884 

0.017550 

3.46504 

e+LiF  a 
Li  e+  5s4p4d 

0.035665 

4.62001 

0.002043 

2.37254 

0.007033 

2.05041 

-107.273739 

F  e+  5s3p2d 

0.000679 

2.62154 

0.022364 

3.32900 

0.059158 

3.04560 

e+LiCl f! 
Li  e+  5s4p4d 

0.026871 

1.98041 

0.029943 

1.50001 

0.004112 

2.41161 

-467.244967 

Cl  e+  5s5pld 

0.061890 

2.16070 

0.002380 

3.63710 

0.026260 

3.88720 

"LiPs  and  PsX  e  basis  sets  were  held  fixed  during  the  e+  even-tempered  parameter  and  geometry  opti¬ 
mizations  for  the  e+LiX  systems. 
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Figure  4:  LiX  and  e+LiX  (X  =  H,  F,  Cl)  MP2  and  NE0-MP2  potential  energy  curves, 
with  a  frozen  electronic  core  on  the  Fi,  F,  and  Cl  atoms  and  electronic  and  positronic  basis 
sets  from  Table  8.  The  Morse  potential  fits  used  to  compute  the  geometries  and  vibrational 
parameters  are  also  shown.  The  vibrational  energy  levels  of  FiX  ( — )  and  e+FiX  ( — )  used 
to  compute  the  VFR  in  Table  10  are  also  shown. 
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Table  9:  LiX  and  e+LiX  (X  =  H,  F,  and  Cl)  MP2  and  NE0-MP2  results.  Listed  are 
the  calculated  bond  lengths  ( Re  and  Rq),  experimental  bond  lengths  ( ReXp ),  dissociation 
energies  (A),  harmonic  constants  (tOg),  anharmonic  constants  (co e%e),  and  calculated  and 
experimental  vibrational  energies  (v  and  vexp,  respectively).  A  frozen  electronic  core  on  Li, 
L,  and  Cl  was  used,  and  electronic  and  positronic  basis  sets  were  taken  from  Table  8. 


Re  (A) 

Ro  (A) 

flex p  (A)" 

A  (eV)* 

coe  (cm-1) 

(£>eXe  (cm"1) 

V  (cm-1) 

Vexp  (cnr1)" 

LiH 

1.6007 

1.6088 

1.5957 

- 

1441 

20.3 

1400 

1406 

e+LiH 

1.6810 

1.6856 

- 

0.545365 

1201 

28.8 

1144 

- 

LiF 

1.6003 

1.6143 

1.5639 

- 

934 

7.5 

919 

910 

e+LiF 

1.6476 

1.6556 

- 

1.588220 

799 

9.2 

781 

- 

LiCl 

2.0455 

2.0592 

2.0207 

- 

648 

4.2 

640 

643 

e+LiCl 

2.1029 

2.1111 

- 

1.169670 

566 

5.1 

556 

- 

"Experimental  bond  lengths  and  vibrational  energies  are  from  the  CCCBDB.  [9] 

fcThe  e+LiX  dissociation  energies  are  computed  for  the  e+LiX  — >  Li+  +  PsX  disassociation  channel,  with 
an  Li+  MP2  energy  of  —7.274638  Hartree  and  zero-point  energy  corrections  for  e+LiX.  PsX  MP2  energies 
are  taken  from  Table  8. 


B  =  0  level  will  resonate  with  modes  of  13  =  A'  or  higher.  Lor  all  three  of  the  molecules, 
if  the  nonpositronic  system  is  in  the  13  =  1  state,  two  additional  vibrational  energy  levels 
become  inaccesible  by  VLR. 

Clearly,  anharmonic  effects  play  a  significant  role  in  calculating  the  vibrational  en¬ 
ergy  levels  of  the  e+LiX  systems.  Upon  addition  of  the  positron,  the  magnitude  of  coe 
decreases  significantly,  while  co e%e  increases.  This  has  the  net  effect  of  reducing  the  vi¬ 
brational  energy  of  the  positronic  system  by  a  greater  amount  than  if  a  simple  harmonic 
approximation  is  used  for  the  PEC  fit.  The  calculated  VLRs  are  also  affected,  since  the 
spacing  decreases  more  rapidly  in  the  positronic  system  for  higher  vibrational  energy  lev¬ 
els. 

Lor  each  of  the  systems,  the  decrease  in  the  stiffness  of  the  bonds  upon  addition  of 
the  positron  is  expected  and  correlates  with  the  increase  in  Re.  Attachment  of  the  positron 
has  less  effect  on  the  vibrational  spectra  of  the  LiX  systems  going  from  H  to  L  to  Cl.  The 
calculated  e+LiL  vibrational  energy  is  781  cm-1,  a  decrease  of  15.0%  from  the  LiL  value  of 
919  cm-1.  This  decrease  is  less  than  the  18.3%  drop  in  the  vibrational  energy  of  LiH  (from 
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Table  10:  LiX  (X  =  H,  F,  and  Cl)  VFRs  computed  from  MP2  and  NEO-MP2  PECs.  The 
positron  kinetic  energy  (£/,)  associated  with  each  VFR  is  listed  by  the  corresponding  LiX 
and  e+LiX  vibrational  energy  levels  (l)  =  n  and  13  =  n! ,  respectively). 


LiH 

LiF 

LiCl 

n 

ri 

£k  (eV) 

n 

ri 

£k  (eV) 

n 

ri 

(eV) 

0 

3' 

0.033494 

0 

3' 

0.006866 

0 

4' 

0.000566 

4' 

0.153845 

4' 

0.096847 

5' 

0.064482 

5' 

0.267052 

5' 

0.184559 

6' 

0.127136 

6' 

0.373115 

6' 

0.270001 

1' 

0.188529 

1' 

0.472034 

1' 

0.353175 

8' 

0.248661 

1 

5' 

0.093449 

1 

5' 

0.070591 

1 

6' 

0.047823 

6' 

0.199512 

6' 

0.156034 

1' 

0.109216 

1' 

0.298431 

1' 

0.239207 

8' 

0.169347 

2 

6' 

0.030943 

2 

6' 

0.043928 

2 

7' 

0.030938 

1' 

0.129862 

1' 

0.127101 

8' 

0.091069 

3 

1' 

0.016856 

3 

8' 

0.013826 

1400  cm  1  to  1 144  cm  1 ),  and  it  is  more  than  the  13.0%  drop  for  LiCl  (from  640  cm  1  to 
556  cm”1). 

The  trend  in  the  shift  of  the  vibrational  energy  is  due  to  the  nature  of  the  positron 
MO  on  the  molecule  and  can  be  understood  by  examining  the  positronic  densities  of  the 
e+LiX  systems.  The  positronic  densities  for  e+LiX  and  the  electronic  densities  for  LiX 
are  given  in  Figure  5.  For  the  systems,  as  we  go  from  X=H  to  F  to  Cl,  it  is  clear  that  the 
positronic  density  is  more  localized  on  the  X  atom,  and  less  positronic  density  is  present 
in  the  interatomic  spacing  of  the  molecule.  The  trend  explains  why  the  presence  of  the 
positron  has  less  effect  on  the  vibrational  energy  of  e+LiF  and  e+LiCl  as  compared  to 
e+LiH.  The  positron  weakens  the  LiH  bond  more  than  the  LiF  and  LiCl  bonds. 
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Figure  5:  e+LiX  positronic  density  ( — )  and  LiX  electronic  density  ( — ).  [X  =  H  (plots 
a  and  b),  F  (plots  c  and  d),  Cl  (plots  e  and  f)]. 
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V.  Positron  Interaction  With  B12H12 

5.1  Introduction 

In  order  to  investigate  the  interaction  of  positrons  with  the  B12H12  dianion,  we  first 

need  to  understand  the  electronic  structure  of  the  molecule.  This  will  guide  the  placement 

and  choice  of  positron  basis  functions.  While  there  have  been  several  theoretical  studies 

of  icosahedral  boranes  in  molecular  and  condensed  phase  form,  to  my  knowledge,  none 

have  considered  positron  binding.  For  example,  Green  et  al.  performed  RHF  calculations 

2- 

at  the  double-zeta  level  on  B12H12,  CB11H12,  and  l,12-C2BioHi2.  [20]  These  calculations 
did  not  include  correlation  effects,  which  we  have  seen  are  critical  to  describing  positron 
interactions. 

As  in  the  previous  chapter,  electron-electron  and  electron-positron  correlation  are 
included  with  the  MP2  method.  [40]  All  calculations  were  performed  with  GAMESS,  [49] 
and  the  positron  is  included  through  the  use  of  the  NEO  method,  [60,71]  modified  to  handle 
positrons  as  discussed  in  Chapter  III. 

The  B12H12  molecule  has  very  high  symmetry  (Ih  point  group),  but  the  MP2  method 
as  it  is  implemented  in  NEO  only  supports  a  certain  number  of  Abelian  point  groups.  The 
largest  Abelian  subgroup  of  Ih  that  is  supported  by  NEO-MP2  is  CGv,  and  all  of  the  calcu¬ 
lations  in  this  chapter  were  performed  with  this  symmetry.  Also,  the  cc-pVDZ  electronic 
basis  set  is  used.  [15] 

5.2  Computational  Results 

2_ 

The  MP2-optimized  geometry  of  B12H12,  is  shown  in  Figure  6,  and  the  coordinates 
of  the  C2v  symmetry-unique  atoms  are  given  in  Table  ll.1  The  minimized  MP2  energy 
is  —304.544568,  with  a  HF  energy  of  —303.302892  and  a  second-order  correction  of 
—  1.241676.  The  optimized  bond  lengths  are  1.8042  A  and  1.2138  A  for  Rbb  and  Rbh> 
respectively.  The  computed  value  of  Rbh  agrees  very  well  with  the  experimental  value  of 
Kozlova  et  al.  of  1.21±0.01  A  obtained  with  nuclear  magnetic  resonance  (NMR).  [30]  Tir- 

^igures  6,  7,  8,  and  9  were  generated  with  MacMolPlt.  [7] 
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Table  11:  MP2-optimized  C2V  symmetry-unique  atomic  coordinates  of  B12H12.  The 
complete  molecule  is  shown  in  Figure  6. 


Atom 

X 

y 

z 

B1 

1.459608 

0.902091 

0.000000 

B2 

0.000000 

1.459609 

0.902091 

B3 

0.000000 

1.459609 

-0.902091 

B4 

0.902091 

0.000000 

1.459608 

B5 

0.902091 

0.000000 

-1.459608 

H6 

2.492097 

1.540205 

0.000000 

H7 

0.000000 

2.492097 

1.540205 

H8 

0.000000 

2.492097 

-1.540205 

H9 

1.540205 

0.000000 

2.492097 

H10 

1.540205 

0.000000 

-2.492097 

itiris  also  obtained  NMR  values  for  Rbb  and  Rbh  of  1.20  A  and  1.78  A,  respectively,  [67], 
which  agree  well  with  these  results.  In  comparison,  the  minimum  RHF  energy  of  Green  et 
al.  with  the  smaller  4-3 1G*  electronic  basis  set  was  —302.963784,  and  the  Rbb  and  Rbh 
bond  lengths  were  1.7922  A  and  1.2015  A,  respectively.  The  B12H12  molecular  geometry 
was  also  optimized  at  the  RHF  level  with  the  cc-pVDZ  basis,  obtaining  a  minimum  en¬ 
ergy  of  —303.302977  Hartree  and  Rbb  and  Rbh  bond  lengths  of  1.8026  A  and  1.2102  A, 
respectively.  From  these  results,  we  see  that  both  the  larger  basis  set  and  the  inclusion  of 
electron-electron  correlation  at  the  MP2  level  have  the  effect  of  increasing  the  bond  lengths. 

In  order  to  determine  the  nature  of  the  electronic  wavefunction  of  the  B 12H12  molecule, 
plots  of  the  MP2  molecular  electrostatic  potential  (MESP)  are  given  in  Figures  7  and  8.  The 
plots  show  both  the  negative  and  positive  contours  in  increments  of  0.025  a.u.  with  a  max¬ 
imum  contour  value  of  1.0  a.u.  There  are  five  regions  of  interest  (ROIs)  for  the  MESP: 
(1)  inside  the  boron  cage;  (2)  in  the  vicinity  of  the  boron  cage;  (3)  between  the  boron  cage 
and  the  hydrogen  cage;  (4)  in  the  vicinity  of  the  hydrogen  cage;  and  (5)  outside  of  the 
hydrogen  cage. 

Figure  7  is  a  two-dimensional  slice  through  the  MESP  in  an  “equatorial  plane”  which 
bisects  ten  boron-boron  bonds  perpendicular  to  a  C5  rotation  axis.  In  ROI  1,  the  MESP  is 
negative  with  a  value  of  approximately  —0. 15  a.u.  at  the  center  of  the  cage.  From  the  center 
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Figure  6:  B12H12  C2V  geometry.  The  three  Cartesian  planes  (xy-,  xz-,  and  yz-plane)  each 

have  four  boron  atoms  and  four  hydrogen  atoms.  The  symmetry-unique  atomic  coordinates 
are  given  in  Table  1 1 . 
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Figure  7:  B12H12  two-dimensional  molecular  electrostatic  potential  (MESP)  in  equa¬ 

torial  plane  of  C2V  geometry.  The  positive  contours  ( — )  and  negative  contours  ( — )  are 
shown  in  increments  of  0.025  a.u.  with  a  maximum  value  of  1.0  a.u.  This  cut  of  the  MESP 
shows  very  little  divergence  from  spherical  symmetry. 
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Figure  8:  B 12H12  two-dimensional  molecular  electrostatic  potential  (MESP)  in  the  Carte¬ 
sian  plane  of  the  C2V  geometry  of  Figure  6.  The  positive  contours  ( — )  and  negative  contours 
( — )  are  shown  in  increments  of  0.025  a.u.  with  a  maximum  value  of  1.0  a.u.  This  cut  of 
the  MESP  shows  significant  deviation  from  spherical  symmetry  in  the  vicinity  of  the  boron 
and  hydrogen  atoms.  Away  from  the  atoms,  the  MESP  retains  spherical  symmetry. 
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of  the  cage  to  the  edge  of  ROI  2,  the  magnitude  of  the  MESP  decreases  gradually  to  zero, 
and  the  MESP  is  positive  in  ROI  2.  The  plot  reveals  very  little  deviation  from  spherical 
symmetry,  most  of  which  is  confined  to  ROI  2,  at  the  triangular  faces  of  the  boron  cage.  In 
ROI  3,  between  the  boron  and  hydrogen  cages,  the  MESP  goes  from  positive  to  negative, 
and  remains  negative  in  ROI  4,  with  a  peak  in  the  magnitude  in  this  region.  The  magnitude 
of  the  MESP  decreases  gradually  outside  of  the  hydrogen  cage,  in  ROI  5. 

Figure  8  shows  a  two-dimensional  slice  through  the  MESP  in  one  of  the  Cartesian 
planes  (the  xy-,  xz-,  and  yz-plancs  are  equivalent).  This  plot  is  in  stark  contrast  to  the  plot  in 
Figure  7,  since  it  cuts  through  four  boron  atoms  and  four  hydrogen  atoms  to  reveal  drastic 
deviation  from  spherical  symmetry.  This  deviation  is  confined  to  the  areas  immediately 
surrounding  each  of  the  atoms  and  the  two  bisected  boron-boron  bonds  in  ROIs  2,  3,  and  4. 
In  ROI  4,  the  MESP  is  still  negative  in  the  areas  between  the  hydrogen  nuclei,  and  there  is 
a  peak  in  the  magnitude  at  the  radius  of  the  hydrogen  cage. 

The  best  positronic  basis  set  for  e+Bi2Hi2  would  include  at  least  as  many  s-,  p-,  and 

d-type  Gaussian  primitives  at  each  of  the  boron  and  hydrogen  nuclei  as  are  included  in  the 

electronic  basis  set.  Unfortunately,  convergence  of  the  self-consistent  field  (SCF)  method  is 

problematic  for  this  system,  and  a  systematic  approach  to  adding  positronic  basis  functions 

2_ 

to  the  molecule  is  required.  The  analysis  of  the  MESP  for  B12H12  suggests  that  a  good 
initial  positronic  basis  set  for  e+Bi2Hi2  is  a  set  of  s-type  Gaussian  primitives  located  at 
the  center  of  the  cage.  For  an  initial  positronic  basis  set  of  this  type,  a  set  of  twelve  even- 
tempered  functions  were  chosen  in  which  the  zth  exponent  is  given  by  £,•  =  a[T.  Based  on 
previous  experience  developing  even-tempered  positronic  basis  sets,  an  a  of  0.0001  and  a 
P  of  3.0  was  used  for  this  initial  basis. 

2 

Figure  9  shows  the  NEO-HF  positronic  density  for  e+B  12H12  with  the  cc-pVDZ  elec¬ 
tronic  basis  set  on  the  atoms  and  the  even-tempered  [12s]  positronic  basis  set  at  the  center 

2_ 

of  the  cage.  This  calculation  was  performed  at  the  MP2-optimized  geometry  of  B12H12.  It 
is  clear  from  the  plot  that  the  positronic  density  is  very  diffuse,  especially  considering  the 
maximum  contour  has  a  value  of  0.001  a.u.  and  the  contours  are  shown  at  every  0.00005  a.u. 
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Table  12:  MP2  and  NE0-MP2  results  for  B12HT2  and  e+B^H^.  The  HF  and  NEO-HF 
energies  (Erf),  MP2  and  NEO-MP2  energies  (Emp2X  and  second-order  electron-electron 
and  electron-positron  energies  (Emp2  an(^  ^MP2'  respectively)  are  listed  for  each  system. 
Also  listed  is  the  change  in  each  parameter  with  the  addition  of  the  positron.  Energies  are 
in  Hartrees. 


B12HT2 

e+B12Hi2 

Change 

TjlF 

-303.302892 

-303.488281 

-0.185389 

pee 

£,MP2 

-1.241676 

-1.241423 

0.000253 

Eep 

£,MP2 

- 

-0.000619 

-0.000619 

£mp2 

-304.544568 

-304.730322 

-0.185755 

As  expected,  there  is  a  peak  in  the  positron  density  just  outside  of  the  hydrogen  cage,  in  the 
same  location  as  the  negative  peak  in  the  MP2  MESP  of  Figures  7  and  8.  Surprisingly,  there 
is  very  little  positronic  density  in  the  center  of  the  cage  at  the  HF  level.  This  is  perhaps  due 
to  the  lack  of  electron-positron  correlation  in  the  NEO-HF  calculation. 

Although  a  plot  of  the  MP2  positronic  density  is  unavailable,  a  NEO-MP2  energy  of 
—304.730322  was  obtained  for  the  e+B^Hfi  system.  The  NEO-HF  energy  of  the  system 
is  —303.488281,  and  the  electron-electron  and  electron-positron  correlation  energies  are 
—  1.241423  and  —0.000619,  respectively.  The  results  of  the  MP2  and  NEO-MP2  calcula¬ 
tions  are  summarized  in  Table  12. 

As  discussed  in  Section  2.2.4,  knowledge  of  the  IP  for  a  system  can  be  of  help  when 
predicting  the  qualitative  nature  of  the  corresponding  positronic  system.  With  the  cc-pVDZ 
electronic  basis  set,  the  energy  of  the  B  12^)2  was  calculated  to  be  -304.506336  Hartree,  for 
an  IP  of  1.040335  eV.  This  value  is  much  less  than  6.8  eV,  which  indicates  that  the  system 
should  resemble  Ps[B12H"12]  instead  of  e+B^Hj^-  As  a  consequence,  a  significant  portion 
of  the  positronic  density  should  be  present  at  the  center  of  the  cage  molecule. 


5.3  Experimental  Results 

A  PALS  system  was  assembled  and  used  to  measure  the  positron  lifetime  of  potas¬ 
sium  dodecahydrododecaborate  methanolate,  K2B12H12CH3OH,  which  was  obtained  in 
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Figure  9:  e+Bi2Hi2  NEO-HF  positronic  density.  The  two-dimensional  positronic  den¬ 
sity  ( — )  is  shown.  The  maximum  contour  of  the  positronic  density  is  0.001  a.u.  and  there 
is  0.00005  a.u.  between  each  contour.  The  basis  sets  consist  of  cc-pVDZ  electronic  ba¬ 
sis  functions  on  the  B  and  H  atoms  and  an  even-tempered  [12s]  positronic  basis  set  at  the 
center  of  the  cage. 
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powder  form  from  BASF  Corporation.  The  material  is  specified  to  be  no  more  than  15.0% 
methanol.  Suitable  samples  for  PALS  were  made  by  pressing  at  23,000  lb. 

5.3.1  Positron  Annihilation  Lifetime  Spectrometer.  The  schematic  of  the  PALS 
system  is  shown  in  Figure  10.  It  is  of  the  “fast-slow”  type,  in  which  timing  pulses  from 
the  detectors  are  used  to  provide  start  and  stop  signals  for  an  Ortec  565  time-to-amplitude 
converter  (TAC)  in  the  “fast”  side,  and  energy  pulses  are  used  to  provide  a  gate  for  a  Can¬ 
berra  9635  analog-to-digital  converter  (ADC)  on  the  “slow”  side.  At  the  heart  of  the  system 
is  a  pair  of  BaF?  scintillation  detectors  with  XP2020Q  photomultiplier  tubes  (PMTs),  which 
provide  excellent  energy  resolution  and  timing  characteristics. 

The  dynode  signals  from  the  PMTs,  which  provide  the  best  energy  information,  are 
each  sent  to  an  Ortec  113  preamplifier  and  then  amplified  and  shaped  in  an  Ortec  672 
spectroscopy  amplifier.  The  unipolar  outputs  from  the  spectroscopy  amplifiers  are  then  sent 
to  a  pair  of  Ortec  551  timing/single  channel  analyzers  (T/SCAs)  to  pick  off  valid  start  and 
stop  signals  (1.274  MeV  and  0.511  MeV  photons,  respectively).  The  start  and  stop  logic 
pulses  are  delayed  in  Ortec  416A  gate  and  delay  generators  (G&DG)  in  order  to  compensate 
for  the  inherent  delay  of  the  TAC  and  ADC  in  the  timing  chain.  The  Ortec  C04020  quad 
logic  module  provides  the  gate  signal  to  the  ADC  so  that  output  from  the  TAC  is  processed 
only  when  both  valid  start  and  valid  stop  pulses  occur  in  the  specified  time  window. 

The  anode  signals  from  the  detectors,  which  provide  the  best  timing  information,  are 
each  sent  directly  to  one  of  the  channels  of  the  Ortec  935  quad  constant  fraction  discrimi¬ 
nator  (CFD),  which  provides  the  start  and  stop  pulses  for  the  TAC.  The  TAC  output  is  then 
processed  by  the  ADC  and  then  the  ethernet  multichannel  analyzer.  The  PALS  spectrum 
is  collected  on  a  personal  computer  (PC)  running  Genie  2000.  Analysis  of  the  spectrum  is 
accomplished  with  the  PALS ft  program.  [42] 

5.3.2  Positron  Source  and  Sample  Configuration.  The  positron  source  was  pre¬ 
pared  by  depositing  22NaCl  between  two  4  pm  thick  Mylar  films  and  sealing  with  double¬ 
sided  tape.  “Carrier-free”  22NaCl  in  aqueous  solution  was  obtained  from  Isotope  Products 
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Figure  10:  Schematic  of  PALS  system. 
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for  the  source.  In  order  to  reduce  the  volume  to  be  transferred  to  the  Mylar  film,  20  /vCi  of 
activity  was  transferred  to  a  Teflon  dish  for  drying  under  an  infrared  lamp.  Unfortunately, 
the  22NaCl  solution  contained  an  unexpected  carrier,  perhaps  an  organic  from  the  extrac¬ 
tion  process,  at  a  substantial  concentration.  This  made  it  extremely  difficult  to  transfer  the 
desired  activity  to  the  Mylar  film,  and  the  final  activity  of  our  positron  source  was  ~  7  /rCi. 
The  carrier  also  contaminated  our  positron  source,  causing  a  large  source  correction  in  our 
PALS  spectra. 

To  ensure  that  most  of  the  positrons  from  the  source  annihilated  in  the  sample,  a 
“source-sample  sandwich”  configuration  was  used.  In  this  type  of  configuration,  two  identi¬ 
cal  samples  are  placed  on  either  side  of  the  positron  source.  The  “source-sample  sandwich” 
is  placed  next  to  the  two  detectors,  which  are  placed  end-to-end,  as  shown  in  Figure  10. 
This  geometry  limits  the  chances  that  both  a  1.274  MeV  ‘birth’  gamma  and  a  0.511  MeV 
annihilation  photon  will  enter  the  same  detector. 

5.3.3  Data  Analysis.  The  most  difficult  part  of  PALS  is  extracting  physically 
meaningful  parameters  from  measured  spectra.  Fortunately,  the  PALSyh  program,  [42] 
which  was  recently  released  in  an  updated  form,  provides  a  systematic  method  to  go  about 
this  task.  It  is  based  on  software  that  has  been  used  extensively  by  the  positron  annihilation 
spectroscopy  community.  [26,27]  PALS/h  consists  of  two  distinct  subprograms: 

•  ResolutionFit  determines  the  time  resolution  function  of  the  PALS  system 

•  PositronFit  extracts  lifetimes  and  intensities  from  lifetime  spectra 

With  ResolutionFit,  the  parameters  which  determine  the  shape  of  the  resolution  function 
of  the  spectrometer  are  fitted  by  analysis  of  lifetime  spectra  which  contain  mainly  one 
component.  The  extracted  resolution  function  is  then  used  in  the  PositronFit  subprogram 
for  analyzing  more  complicated  spectra. 

A  PALS  spectrum  of  single  crystal  tungsten,  shown  in  Figure  11,  was  used  in  con¬ 
junction  with  ResolutionFit  to  determine  the  resolution  function  of  the  PALS  system.  The 
bottom  plot  in  Figure  1 1  shows  the  spectrum  and  the  fit  obtained  with  ResolutionFit,  and 
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the  top  plot  is  the  residual  (the  data  points  minus  the  fit).  The  resolution  function  con¬ 
sists  of  three  Gaussian  functions  with  exponents  of  2.180  ns,  1.220  ns,  and  1.515  ns;  shifts 
of  0.00  ns,  -0.61  ns,  and  -0.66  ns;  and  intensities  of  80%,  10%,  and  10%,  respectively. 
During  the  optimization  of  the  resolution  function,  the  known  lifetime  of  tungsten  was 
fixed  at  0.1200  ns,  and  additional  lifetimes  of  12.8446 ±0.2089  ns  and  1.8882  ±0.0136  ns 
were  found.  The  intensities  of  the  tungsten  lifetime  and  the  additional  lifetimes  were 
33.8  ±  0.2  %,  20.3  ±0.1  %,  and  45.9  ±  0.2  %,  respectively.  The  %2  value  for  the  fit  was 
3745. 


5.3.4  K2B 12H  12-CHjOH  Positron  Lifetime.  The  positron  lifetime  spectrum  for 
K2B12Hi2  CH3OH,  the  fit  obtained  with  PositronFit,  and  the  associated  residual  plot  is 
shown  in  Figure  12.  From  this  analysis,  a  positron  lifetime  of  0.2645  ±0.0077  ns  is  ob¬ 
tained  for  K2Bi2Hi2-CH30H  with  an  intensity  of  25.9  ±0.3  %.  Again,  two  additional 
lifetimes  were  obtained,  and  they  had  similar  values  and  intensities  as  found  with  the  tung¬ 
sten  sample.  The  additional  lifetimes  were  12.6651  ±0.1872  ns  and  1.9450  ±  0.0154  ns, 
with  intensities  of  20.2  ±0.1  %  and  53.9  ±0.3  %,  respectively.  Due  to  the  presence  of 
the  two  additional  lifetimes  in  both  spectra,  it  is  believed  that  they  are  due  to  positrons 
annihilating  in  the  source. 

5.3.5  Effective  Number  of  Electrons.  Following  the  methodology  described  in 

Section  2. 1.2.1,  an  effective  number  of  electrons  binding  with  the  positron  in  e+Bi2Hi? 

can  be  calculated  from  the  measured  annihilation  rate  (X  =  1/t  =  3.7807  ±  0. 1069ns-1). 

The  calculation  yields  an  effective  number  of  electrons  of  1.89  or  0.94  of  the  two  electrons 
2_ 

per  Bi2Hi2  dianion.  This  result  coincides  with  the  conclusions  of  Section  5.2  that  there 
must  be  significant  positron  density  at  the  center  of  the  molecular  cage. 
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Figure  1 1 :  Tungsten  positron  lifetime  spectrum  used  to  determine  the  resolution  func¬ 
tion  of  the  PALS  system.  The  bottom  plot  shows  the  spectrum  and  the  fit  obtained  with 
ResolutionFit.  The  top  plot  is  the  residual  (the  data  points  minus  the  fit). 
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Figure  12:  K^BnH^-CF^OFI  positron  lifetime  spectrum.  The  bottom  plot  shows  the 
spectrum  and  the  fit  obtained  with  PositronFit.  The  top  plot  is  the  residual  (the  data  points 
minus  the  fit. 
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VI.  Summary  and  Concluding  Remarks 

6.1  Summary  of  Results 

Modifications  to  the  NEO  method  within  the  GAMESS  program  have  allowed  the 
calculation  of  wavefunctions  of  several  positronic  molecules.  The  methods  made  available 
include  the  HF,  MP2,  Cl,  CASSCF,  and  FCI  methods.  The  NEO-HF  method  provides 
the  energy  corresponding  to  the  single-configurational  positronic-electronic  wavefunction, 
minimized  with  respect  to  the  MOs,  which  are  expressed  as  linear  combinations  of  Gaussian 
basis  functions.  The  electron-electron  and  electron-positron  correlation  can  be  treated  in  the 
NEO  framework  with  NEO-MP2  or  multiconfigurational  methods  such  as  the  NEO-CI  and 
NEO-CASSCF.  Also,  the  methodology  for  calculating  positron-electron  annihilation  rates 
based  on  NEO-HF  and  NEO-MP2  wavefunctions  was  implemented. 

The  modified  NEO  method  was  applied  to  the  PsH,  e+LiX  (X  =  H,  F,  Cl),  and 
e+Bi2Hj2  systems.  Electronic  and  positronic  basis  sets  were  developed  for  these  systems, 
and  it  was  found  that  the  optimization  of  “molecular”  positronic  basis  sets  was  necessary  in 
order  to  maximize  the  amount  of  electron-positron  correlation  energy  recovered.  Also,  for 
the  e+LiH  system,  it  was  found  that  a  frozen  electronic  core  on  the  Li  atom  restricted  the 
active  space  of  electrons  to  exclude  the  Is  shell  for  Li,  improving  the  balance  in  correlation 
energy  between  the  LiH  and  e+LiH  systems. 

Geometries  and  vibrational  energy  levels  were  computed  for  the  LiX  and  e+LiX 
systems  at  the  MP2  and  NEO-MP2  levels.  It  was  found  that  addition  of  the  positron  causes 
the  LiX  bond  to  lengthen  and  become  less  stiff.  Also,  the  anharmonic  terms  increase  upon 
addition  of  the  positron.  The  differences  between  the  vibrational  constants  of  the  positronic 
and  non-positronic  systems  have  significant  implications  in  the  calculation  of  the  VFRs  for 
these  systems. 

The  positron  lifetime  in  pressed  samples  of  K2B12H12CH3OH  was  measured  to  be 

0.2645  ±0.0077  ns,  and  this  result  was  interpreted  with  NEO  calculations.  An  effective 

number  of  electrons  of  1.88  was  calculated  from  the  measured  annihilation  rate,  indicating 

2_ 

that  there  is  significant  positron  density  both  inside  and  outside  of  the  B12H12  cage.  The 
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computational  results  do  not  currently  agree  with  the  experimental  results  due  to  the  lack 
of  sufficient  electron-positron  correlation  in  the  calculation. 

6.2  Future  Work 

This  project  has  uncovered  several  areas  upon  which  to  focus  future  efforts.  Some  of 
these  possibilities  are  presented  here,  and  are  categorized  into  three  main  areas:  (1)  code 
development;  (2)  experimental  development;  and  (3)  positronic  systems  for  computational 
and  experimental  focus. 

6.2.1  Code  Development.  Even  for  relatively  small  systems,  a  large  number 
of  positronic  and  electronic  basis  functions  are  required  for  an  accurate  description  of  the 
wavefunction.  It  is  also  clear  that  higher  angular  momentum  (e.g.,  f-  and  g-type)  basis  func¬ 
tions  are  necessary  for  capture  of  electron-positron  correlation  effects.  It  is  recommended 
that  the  primary  focus  in  code  development  be  the  implementation  of  higher  angular  mo¬ 
mentum  positronic  basis  functions  and  parallelization  of  the  code. 

Unfortunately,  simply  adding  numerous  higher  angular  momentum  basis  functions 
will  not  provide  the  amount  of  electron-positron  correlation  necessary.  The  next  step  is  to 
develop  multireference  methods  such  as  multi-reference  perturbation  theory  (MRPT)  and 
CASSCF  for  positrons.  Of  course,  the  current  implementation  of  NEO  includes  a  CASSCF 
method;  however,  it  requires  that  all  positron  MOs  be  in  the  active  space,  a  limitation  that 
needs  to  be  lifted  in  order  to  compute  larger  systems.  Also,  explicitly  correlated  Gaussian 
basis  functions  have  recently  been  added  to  NEO,  [62]  and  this  method  should  be  investi¬ 
gated  for  modeling  positronic  systems. 

Another  area  of  code  development  that  requires  immediate  attention  involves  the  way 
in  which  positron  basis  function  centers  are  treated  in  NEO.  Since  NEO  was  developed  to 
treat  quantum  nuclei,  the  positron  basis  function  centers  currently  help  define  the  symmetry 
of  the  system.  In  reality,  the  positronic  wavefunction  has  the  symmetry  of  the  system.  In 
other  words,  the  positron  basis  function  centers  should  be  treated  as  a  second  set  of  electron 
basis  function  centers,  not  nuclear  basis  function  centers.  There  is  a  distinct  difference, 
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and  a  change  will  require  a  significant  bifurcation  of  the  NEO  code.  There  are  several 
advantages  to  changing  the  way  in  which  positron  basis  function  centers  are  treated  in 
NEO.  For  example,  currently  NEO  is  unable  to  use  certain  symmetry  groups  which  have 
inversion  symmetry  (e.g.,  T(|).  This  limitation  could  be  eliminated  by  treating  the  positron 
identically  as  electrons  in  GAMES  S. 

Continued  code  development  is  required  in  the  module  that  computes  the  positron- 
electron  annihilation  observables.  The  primary  focus  should  be  the  development  of  code 
to  compute  annihilation  rates  for  multireference  wavefunctions  (e.g.,  FCI  and  CASSCF). 
Also,  the  current  code  that  calculates  the  annihilation  rate  does  not  use  symmetry  or  orthog¬ 
onality  rules,  and  implementation  of  these  techniques  is  necessary  to  treat  larger  systems. 
Finally,  code  for  computing  the  TPMD  should  be  implemented,  since  momentum  distri¬ 
bution  techniques  in  PAS  are  powerful  tools  for  exploring  positron  chemistry  and  point 
defects  in  materials.  The  expressions  for  computing  the  TPMD  are  given  in  Sections  A. 8 
and  A. 9  of  Appendix  A. 

6.2.2  Future  Experimental  Efforts.  Clearly,  the  PALS  spectra  in  Figures  1 1  and  12 
would  benefit  from  further  optimization.  The  primary  focus  should  be  on  improving  the 
anode  signal  from  the  PMTs.  According  to  Becvar,  [6]  the  manufacturing  process  for  the 
XP2020Q  PMTs  (used  in  the  current  configuration)  was  changed  in  1995,  and  the  newer 
models  suffer  from  a  poor  signal,  which  degrades  their  performance  in  PALS  systems. 
Fortunately,  three  new  BaF2  detectors  based  on  Hamamatsu  H3378-50  PMTs  have  been 
received. 

Since  three  detectors  are  now  available,  it  is  recommended  that  a  “double-stop”  setup 
is  used,  in  which  the  1.27  MeV  “birth”  gamma  is  detected  by  one  PMT  while  a  pair  of 
0.511  MeV  annihilation  photons  are  detected  by  the  other  two  PMTs.  In  such  a  configu¬ 
ration,  the  two  stop  detectors  are  placed  face-to-face  on  the  opposite  sides  of  the  source- 
sample  assembly.  Also,  Saito  et  al.  [47]  were  able  to  achieve  a  time  resolution  of  119  ps 
with  this  setup  by  replacing  the  analog  electronics  with  ultra-fast  digitizers. 
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Finally,  the  PAS  methods  of  measuring  the  TPMD  ( e.g .,  ACAR  and  DBAR)  are  pow¬ 
erful  tools  for  probing  the  electronic  and  positronic  wavefunctions  of  annihilation  sites. 
Comparison  of  a  measured  and  calculated  TPMD  would  be  the  ultimate  test  of  the  positronic 
NEO  method. 

6.2.3  Positronic  Systems  for  Modeling  and  Experiment.  As  mentioned  in  Sec¬ 
tion  2.1.3,  Barnes  et  al.  have  measured  VFRs  of  CH3X  (X  =  H,  F,  Cl),  benzene,  and  ammo¬ 
nia.  These  systems  were  chosen  due  to  their  highly  symmetric  nature.  They  are  very  attrac¬ 
tive  from  a  computational  standpoint  and  are  good  candidates  for  the  MRPT  and  CASSCF 
methods  (see  Section  6.2.1). 

Once  the  recommendations  presented  in  Section  6.2.1  are  implemented,  the  ground¬ 
work  will  have  been  laid  for  investigating  positrons  localized  in  point  defects  in  semicon¬ 
ductors  and  other  condensed  phase  systems.  Also,  it  will  be  possible  to  study  positron 
binding  to  surfaces.  These  systems  will  require  the  use  of  the  surface  integrated  molecu¬ 
lar  orbital/molecular  mechanics  (SIMOMM)  method  of  Shoemaker  et  al.  ,  [54]  which  is 
integrated  into  the  GAMESS  code.  Although  SIMOMM  was  developed  specifically  for 
the  study  of  surface  chemical  systems,  it  is  a  general  method,  so  application  to  vacancy 
defects  in  condensed  matter  is  possible.  SIMOMM  is  a  model  in  which  a  subset  of  atoms 
within  a  large  set  of  atoms  are  treated  by  QM  (any  method  available  in  GAMESS),  while 
the  remaining  atoms  are  treated  by  molecular  mechanics  (MM).  In  order  to  satisfy  any  dan¬ 
gling  valences  created  at  the  boundary  between  the  QM  atoms  and  the  total  set  of  atoms, 
capping  atoms  (usually  hydrogens)  are  connected  by  single  bonds  and  included  in  the  QM 
treatment.  The  positions  of  these  capping  atoms  are  optimized,  allowing  for  more  flexibil¬ 
ity  than  in  other  hybrid  methods  (e.g.,  Morokuma’s  integrated  molecular  orbital/molecular 
mechanics  (IMOMM)  approach).  For  modeling  positrons  localized  in  point  defects  or  on 
surfaces,  an  appropriate  NEO  method  would  be  used  for  the  QM  part  of  the  calculation. 

There  are  still  several  neutral  atoms,  X,  that  could  bind  a  positron  that  have  yet  to  be 
modeled.  According  to  Schrader,  [52],  the  most  notable  are  X  =  Ti  and  X  =  Hf,  which  have 
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IPs  very  near  the  ionization  energy  of  Ps.1  As  discussed  in  Section  2.2.4,  there  should  be 
an  accidental  degeneracy  between  the  e+X  and  Ps[X+]  wavefunctions  for  these  systems, 
resulting  in  large  positron  binding  energies  for  both.  These  systems  can  be  modeled  as  five- 
particle  system.  Interestingly,  one  will  need  to  account  for  relativistic  effects  for  the  core 
electrons.  Since  the  positron  is  attracted  to  the  relativistic  electrons,  perhaps  the  positron 
will  need  to  be  treated  relativistically  as  well.  Also,  e+Au  did  not  show  binding  at  the  Cl 
level.  Perhaps  relativistic  effects  must  be  included  for  this  system  in  order  to  get  a  bound 
system. 


lrTi  has  an  IP  of  6.825  eV,  and  Hf  has  an  IP  of  6.803  eV. 
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Appendix  A.  Electron-Positron  Annihilation  Observables  from  NEO-HF 

and  NE0-MP2  Calculations 

In  this  appendix,  the  expressions  necessary  for  computing  the  electron-positron  annihila¬ 
tion  rate  and  TPMDs  from  NEO-HF  and  NEO-MP2  wavefunctions  are  developed.  First, 
the  NEO-HF  wavefunction  and  NEO-MP2  wavefunctions  and  energy  expressions  are  de¬ 
scribed.  Then,  some  notational  and  methodological  groundwork  is  presented  by  developing 
expressions  for  the  NEO-HF  electron-positron  attraction  energy  and  NEO-MP2  energy  ex¬ 
pressions.  Finally,  the  derivations  for  the  electron-positron  annihilation  rate  and  TPMD  at 
the  HF  and  MP2  level  are  given. 

A.l  NEO-HF  Wavefunctions 

For  nuclear-electronic  orbital  (positronic)  Hartree-Fock  [NEO-HF]  theory,  the  total 
electron-positron  wavefunction  is  represented  by  a  product  of  single-configurational  elec¬ 
tronic  and  positronic  wavefunctions: 

vp(xe,xP)=^(xe)T>P(xP),  (70) 

where  <I>q ( xe )  and  <Fq(xp)  are  antisymmetrized  wave  functions  (determinants  of  orthonor¬ 
mal  spin  orbitals)  representing  the  electrons  and  positrons,  respectively.  The  vectors  xe  and 
xp  are  the  position  and  spin  coordinates  of  all  of  the  electrons  and  positrons  in  the  system, 
respectively. 

So  for  an  Ne-electron,  /Vp-positron  system. 
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■Ap} 

(74) 

Note  that  each  %  is  a  product  of  a  spatial  function  (<f))  and  a  spin  (a  or  (3)  function: 
For  example, 


x!W) 

=  <l>?(if  )«(©!) 

(75) 

Xl(xe2) 

=  4»f(rDf3((0|) 

(76) 

In  all  of  our  calculations,  the  electronic  part  is  treated  at  the  RHF  level.  This  allows  the 
electronic  wave  function  to  be  written  as 


^(re)  = 


4>i(r!)  4>!(ri) 
<>i(r|)  4>2(r!) 


^(ri) 


^n) 


(77) 


where  N  is  the  number  of  doubly-occupied  spatial  orbitals.  Also,  in  all  of  the  systems 
of  interest,  there  is  only  one  positron  present.  Therefore,  the  HF  ground  state  positronic 
determinant  is  simply 

4>P(rP)  =  ^(rP),  (78) 
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with  the  subscript  on  the  positronic  coordinate  absent,  and  the  NEO-HF  wavefunction  is 
reduced  to 


vpHF  =  cp^re^P(rp)  (79) 

Each  spatial  orbital  is  a  linear  combination  of  Gaussian  primitives, 

§i  =  ^Q(P/i,7W'’”,(oCf,  A,-),  (80) 

i 

where  (a,-,  A,-)  is  defined  by 
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and.  A,-  =  (A,-^,  A/^.,  A/;Z)  are  the  coordinates  for  the  point  about  which  the  function  is 
located.  The  polynomial  exponents,  {/,•,/«;,«;}  e  {0, 1,2, . . .},  can  be  summed  to  yield  the 
angular  momentum  of  the  Gaussian  function  (X,  =  /;  +  m,-  +  «,)•  The  Gaussian  exponent, 
a„  is  a  positive  number. 
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A. 2  NE0-MP2  Wavefunctions  and  Energies 

In  this  section,  the  method  for  calculating  the  NEO-MP2  energy  and  wavefunction  is 
shown.  The  general  derivation  of  the  NEO  many -body  perturbation  theory  is  given  in  [60]. 
For  a  system  with  Ne  paired  or  high-spin  electrons  and  Np  paired  or  high-spin  positrons,  the 
NEO-HF  Hamiltonian  is 

i 

+  52  i^P(0  +  VppV)  +VepFp(0}  (86) 

i' 

The  unprimed  indices  refer  to  electrons,  and  the  primed  indices  refer  to  positrons.  The 
superscripts/subscripts  ’e’  and  ’p’  on  the  operators  denote  electrons  and  positrons,  respec¬ 
tively.  In  this  expression,  If  and  hP  are  the  one  particle  terms  and  are  defined  in  ref.  [71]. 

The  two-particle  operators  are  defined  as: 


v?eF(l)x'(l)=E{x?(2)|rr21|xf,(2)>X'(l) 

b 

b 

(87) 

v«F(i')xyi')=E(xM2')kr4-lxM2')>x>(i') 
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y 
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v“pFe ( l)Xy( 1 )  =  -  E  <XP/  ( 1')  1  r\v  1  tfy  ( 1') )tj ( 1 ) 

b' 

(89) 

VeHfp(i')xF,(i')=-Eto(i')kr1!|xS(i)>xF.(i') 

b 

(90) 

where  the  spin  orbitals  are  referred  to  by  the  symbol  %,  and  the  summations  Y*b  and  Lz/ 
are  over  the  occupied  electronic  and  positronic  spin  orbitals,  respectively.  Thus,  v[,[.F (z)  and 
v“V)  are  the  Coulomb-exchange  operators  for  the  electrons  and  positrons,  respectively, 
and  v®  (/)  and  V™p(z')  are  the  electron-positron  Coulomb  operators  for  the  electrons  and 
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positrons,  respectively.  It  can  then  be  shown  that  the  orbital  energies  can  be  expressed  as 


e?  =  {WM  +  £  [<&  I  &}  -  (&  I  bi)\  -  £  (&'  |  ib') , 

b  b’ 

ep  =  (/'|F|/')  +  52  [</V  I  ;V)  -  (/V  I  b'i’)\  -  £  (&/'  I  bi') , 

b'  b' 

where 
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The  perturbations  for  electron-electron,  positron-positron,  and  electron-positron  cor¬ 
relation  are 


W«  =  £^£v?(0. 

i<  j  tf  i 

wpp=  £  —  -£vpPF(z/)> 
if<j''iJ  i 

^ep  =  £  ~  £v'pFe(/)  -  £v'pFp(/') 
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(95) 
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Here,  and  in  subsequent  equations,  the  upper  bounds  for  summations  over  unprimed  and 
primed  particle  indices  are  Ne  and  Np,  respectively.  The  combined  perturbation  for  electron- 
electron,  positron-positron,  and  electron-positron  correlation  is  W  =  Wee  +  Wpv  +  We p. 


Using  Rayleigh-Schrodinger  perturbation  theory,  the  NEO-MP2  (second-order  many- 
body  perturbation  theory)  energy  expression  for  mixed  electronic -positronic  wavefunctions 
is 


£■(2)  _ 
^00  — 


E 

nn')^(00) 


p(0)  _  r(°) 
c00  c nn ' 


(98) 


Here,  the  zeroth-order  wavefunctions  ( i.e .,  the  eigenfunctions  of  /7(,[F  given  in  equation  86) 
are  |T>qT>q)  for  the  ground  state  and  )  for  excited  states,  using  Dirac  notation  for  the 
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Slater  determinant  of  spin  orbitals: 


l<**0>  =  !Xi(l)x!(2)--'X«,(^e)>  (99) 

The  Dirac  forms  of  the  singly-  and  doubly-substituted  Slater  determinants  of  spin  orbitals 
are 


«=|x!(l)Zl(2)-X;-i(o-l)Z?(a)x5+i(o+l) . Xw.W>,  (100) 

0>5)=|Xi(l)xI(2)-" 

-x5-i(o- I)x»ti(«+1)-  (101) 

x?,-i  (ft  -  i)x'(*)Xm,(* + 1) '  ■  -4W) 


The  zeroth-order  energy  E^!  is  the  sum  of  the  energies  corresponding  to  the  occupied 
electronic  and  positronic  spin  orbitals  for  the  state  The  notation  under  the  summa¬ 

tion  in  Equation  (98)  indicates  that  both  n  and  n!  cannot  simultaneously  correspond  to  the 
ground  state  electronic  and  positronic  determinants,  respectively.  The  first-order  correction 
to  the  HF  wavefunction  is 


y 

(nn')^(00)  Eoo~E!J 


(102) 


Substituting  W  =  Wee  +  WpP  +  Wep  into  Equations  (98)  and  (102),  the  second-order 
energy  correction  and  the  first-order  wavefunction  correction  within  the  NEO  framework 
can  be  expressed  as 
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and 
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(104) 


respectively.  The  Wee  terms  become  the  standard  MP2  equations  for  electron-electron  cor¬ 
relation  in  electronic  structure  theory 
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(105) 


and 
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E 

a<b 

r<s 
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(106) 

(107) 


where  a  and  b  refer  to  occupied  electronic  spin  orbitals,  and  r  and  s  refer  to  virtual  electronic 
spin  orbitals. 

The  WpP  terms  are 


and 
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=  EPP<$l*0*&>.  (11Q) 

a<b 

r<s 


79 


where  a'  and  b'  refer  to  occupied  positronic  spin  orbitals,  and  iJ  and  s'  refer  to  virtual 
positronic  spin  orbitals.  The  only  non-zero  matrix  elements  for  |  VteP  |  ])  include 

single  excitations  in  both  the  electron  and  positron  determinants,  leading  to  the  second- 
order  electron-positron  correlation  correction  to  the  energy  (see  Section  A. 4  for  the  deriva¬ 
tion) 


Y  Kaa'lrr'))2 
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and  the  first-order  electron-positron  correlation  correction  to  the  wavefunction 
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(112) 
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where  a  and  a'  denote  occupied  electronic  and  positronic  spin  orbitals,  respectively,  and  r 
and  r1  denote  virtual  electronic  and  positronic  spin  orbitals,  respectively.  The  total  NEO- 
MP2  energy  is  £MP2  =  £HF  +  e£]  +  E$  +  E$. 

For  systems  with  only  one  positron,  £pjy  and  'Ppp  vanish,  and  the  electron-positron 
corrections  can  be  simplified  to 
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The  resulting  NEO-MP2  energy  is 


£MP2=£HF+£ 
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and  the  first-order  wavefunction  correction  is 


where 
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A.3  NEO-HF  Electron-Positron  Attraction  Energy 


The  electron-positron  attraction  energy  for  the  NEO-HF  wavefunction,  given  in  equa¬ 
tion  (79),  consisting  of  N  doubly-occupied  electronic  orbitals  and  a  single  positron  is 

— 2|>-1!*§(r')<»5,(ri>)\  (121) 

All  of  our  wavefunctions  consist  of  real  spatial  functions,  and  the  complex  conjugate  nota¬ 
tion  can  be  dropped.  For  example: 


*0* 

=  <*>0 

(122) 

<^ol 

-  m) 

(123) 

By  simplifying  the  expression  in  equation  (121),  the  utility  of  expanding  a  determinant  in 
minors  will  be  presented.  Further  information  on  this  concept  may  be  found  in  Appendix 
2.A.3  of  Cook.  [10] 
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We  can  expand  a  determinant  of  order  n  in  terms  of  the  first  column  to  show  its 
dependence  on  the  coordinates  of  particle  1  explicitly: 
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(124) 


where  <t>i;  is  the  determinant  of  order  n- 1  obtained  by  striking  out  the  /-th  row  and  first 
column  of  but  without  the  factor  of  1/ yj (n—  1)!.  This  means  that  d>i,  is  not  normalized. 

We  also  define  c/r^  as 


dr\k)  =  dr\dr2  '  • '  drtk-l)drtk+l)  ■  ■  '  drN 


(125) 
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The  interdeterminant  overlap  integral  is  defined  as  the  determinant  of  the  overlap 


matrix  between  the  ki  and  k j  basis. 


dr 

ki  k  j 
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det\S(ki’,kj)  \ 
\jD(ki)D(kj ) 


(126) 


D(ki)  and  D(kj )  are  just  the  determinants  of  the  overlap  matrix  for  the  ki  and  kj  basis, 
respectively: 

D(ki)  =  D(kj)  —  1  (127) 

since  we  have  an  orthonormal  set  of  orbitals,  and 
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\S(ki;kj)\  is  simply  the  determinant  of  the  MO  overlap  matrix  with  the  i-th  row  and  / - 1 h 
column  removed: 
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(131) 


Thus,  if  i  =  j,  the  above  determinant  is  one;  however,  if  i  /  j,  there  is  at  least  one  zero  on 
the  diagonal,  and  the  above  determinant  is  zero.  So,  the  interdeterminant  overlap  integral 
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is  then 
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Now  the  electron-positron  attraction  energy  expression  can  be  simplified: 
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If  we  let  [1  (P')  be  the  number  of  electronic  (positronic)  basis  functions,  this  expres¬ 
sion  can  be  expanded  in  terms  of  the  electron  and  positron  basis  functions: 
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where 


{1  m  —  n 

2  m  ^4  n 


(149) 


and  Cim  is  the  ith  MO  coefficient  for  the  777th  atomic  orbital  (AO)  basis  function.  ( 777777 '  \  nn') 
is  an  electron-positron  attraction  integral  in  the  AO  basis. 
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A.4  Wep  Matrix  Elements 

Now,  we  turn  our  attention  to  the  NEO-MP2  electron-positron  correlation  correction 
to  show  how  one  arrives  at  equation  (111)  We  will  examine  the  single-electron  excitation, 
the  single-positron  excitation,  and  the  single-electron/single -positron  excitation  individu¬ 
ally. 


A.4. 1  Single-Electron  Excitation.  First,  we  compute  the  matrix  element  of  the 
Wep  operator,  equation  (97),  between  the  NEO-HF  ground  state  wavefunction  and  the  wave- 
function  consisting  of  a  single-electronic  excitation: 
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A  definition  to  help  with  the  derivation: 


f  (]),■  i  7^  a,i  7^  b,i  7^  c,i  7^  d, . . . 


n (rstu 
t  abed--- 


(|),-  i  =  a, 

<)>«  i  =  b, 

i  =  c. 


§u  i  =  d. 


(151) 


Also,  it  can  be  shown  that  for  an  /V-ordcr  Slater  determinant,  <Eq, 

1 0  j, 

|  (A  -  1)!  i  =  j  —  a. 

(N-\)%bia  (152) 

Now,  we  will  examine  each  term  in  equation  (150). 
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A.4.1.1  Term  1. 
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Here,  and  in  subsequent  sections,  the  electron-positron  attraction  integrals  such  as  (al'jrl') 
are  in  the  MO  basis. 
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A.4.1.2  Term  2. 
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A.4.1.3  Term  3. 
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Therefore,  terms  1  and  2  cancel  to  give  zero  for  the  matrix  element  between  the  HF  ground 
state  and  the  single-electron  excitation  wavefunction: 

<^o|^eP|^o>  =  -2<«l/kl/)  +  2<al'|rl,>=  0  (178) 


A  similar  result  is  obtained  for  the  single-positron  excitation  term. 


A.4.2  Single-Electron/Single-Positron  Excitation.  Next,  we  compute  the  matrix 
element  between  the  NEO-HF  ground  state  wavefunction  and  the  wavefunction  consisting 
of  single-electronic  and  single-positronic  excitations: 
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Again,  we  look  at  each  term  individually. 
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A.4.2.1  Term  1. 
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A.4.2.2  Term  2. 


4>§4>5  -Ev™  (*) 


<*>S(re)<t>.'(i'1')  -2Ev”(*) 

k 


=  -2£  / 

=  -2N  I  JreJr1/4)§(re)^1/(rr)v™e(l)^(re)^(r10 
2/v  w  r 

=  -777D-1)'+7  /  ^re^ri4/(ri)^o4>iKri')v?pFe(l)¥«(ri)^.^'(ri 


7  lj 


(w-i) 


7E(-i  )‘+l  fdrm%^ 

■a  J  1  i  1 


x  J  Jri^-(ri)v“pJ;e(l)^(r1) 


(190) 

(191) 

(192) 

(193) 

(194) 

(195) 


A  similar  result  is  found  for  term  3.  Therefore,  the  only  nonzero  matrix  element  for  the 
NEO-MP2  electron-positron  correlation  correction  results  from  the  electron-positron  at¬ 
traction  energy  between  the  HF  ground  state  wavefunction  and  the  single-electronic/single- 
positronic  excitation: 

(^Slw'epl*;^)  =  -2<al'|r/>.  (196) 
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A. 5  Calculation  of  the  Spin-Averaged  Positron-Electron  Annihilation  Rate  from  the 
NEO-HF  Wavefunction 

Now  that  we  have  laid  some  theoretical  and  notational  groundwork  for  NEO-HF 
and  NEO-MP2,  we  are  ready  to  develop  the  equations  for  computing  the  positron-electron 
annihilation  observables.  First,  we  will  examine  the  NEO-HF  annihilation  rate.  In  general 
for  an  /Ve-clcctron,  Np -positron  system,  the  spin-averaged  annihilation  rate  is  given  by 

Ne  Np 

X  =  4;tr5c££  /  vEt(xe,xp)0fj.8(rf-rP)dfJvE(xe,xp)JxeJxp  (197) 

where  8(r?  —  r?)  is  the  Dirac  delta  function  for  the  /th  electron  and  the  / 1 h  positron.  [38] 
The  operator  Of  •  is  a  spin  projection  operator  to  the  singlet  state  of  the  /th  electron- j'th 
positron  pair,  which  can  be  written  as 


(198) 


For  an  electronically  closed-shell  system  with  N  doubly-occupied  electron  orbitals  and  a 
single  positron,  equation  (197)  simplifies  to: 


N  , 

X  —  2: irZcY  vFt(re,rp)8(r-  —  rp)vF(re,rp)Jre<7rp  (199) 

“!  JmN+v 


A. 5.1  Example:  e+LiH  .  Fet’s  look  at  the  simplest  non-trivial  bound  system 
consisting  of  an  electronic  closed-shell:  e+FiH.  For  this  case, 


e  _  _J_ 

°  yft 

1 

::=7! 


^i(ri)  ^(rt) 

<>i(r|)  ^(r2) 

^(r^)f2(re2)-^(r?)r2(r^)], 


(200) 
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and  the  total  NEO-HF  wavefunction  is  given  by 

^  KMH'2(r|) -4>!(r|)<t>S(r!)]<t>?(rP)  (201) 

Substituting  the  electronic  and  positronic  wave  functions  into  equation  (199)  (and  dropping 
the  complex  conjugate  notation  since  our  spatial  orbitals  are  pure  real  functions), 


X  =  2 xfcif  [«(rt)f2(r|)  -«(r!)*|(r5)]<(ri>) 

x  8(if  -  rp) 

x  -L  K(rt)^2(rl)  -^(r|)4,!(r5)K(rp)Lrf^2rfrP 


x  [<|>f(rt)<|>I(ri)<|>P(rP)  -^rf^M^rP)] 
x  8(r®  -  rp)  ^dr\dv% drp 

=  H(r5)«rP))2 

-  2  (rj)<|.| (rf  )<)>P (rP))  (rf  )<|>S (r|)<)>f  (rP)) 

+  (4,;(rl)$|(r5)<(rP))2|  5(rf  -  r?)  |rfrTrfr|dr» 


(202) 


(203) 


(204) 
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Next,  we  can  collect  terms  and  we  are  left  with  three  integrals  involving  a  8-function  be¬ 
tween  fj  and  rp  and  three  with  the  8-function  between  r|  and  rp. 


X  =  TI/qC 


term  1 


^l(rl)^(r2X(rP)) 


term  2 


-2(t>i(r!)^(r^)4)P(rp)^(r^)^(rl)^(rp) 


term  3 


+  («(riHiKH5V))' 


8(rf  —  rp) 


term  4 


+ 


(«(iW2(r'2)^(ri>))' 


term  5 


2*5(r5)4>KrlK(rP)«(rtH'2(r'2)<(rP) 

term  6 


+  (^l(r2)^2(rl)^l(rP)) 


8(r|  —  rp)  |  dr\  dr%drv 


(205) 


A.  5. 1.1  Term  1. 


k!'r5)^(r|)<(rp)]28(r;  -  ^)dr\dt\d^ 

=  f  dr\  jj[^(v\)^)}2i(v\-^)dr\dr<- 

'/  [«(rp)<(rp)]2rfrp  =  5!!,  (206) 


where  the  orthonormal  nature  of  the  spatial  orbitals. 


tf(r?)tf(r  \)dr\  = 


1  i  =  j, 
0  i  j > 


(207) 
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was  used.  Also,  notice  we  have  introduced  the  “four-overlap  integral”  notation: 


-  /  mm 


(208) 


which  is  the  integral  of  the  product  of  4  spatial  orbitals. 


A.5.1.2  Term  2. 


e'r|)<|.!(r?)<|.r,(rp)<t.!(rt)<t>|(ri)<t.5,(rp)S(r<i-rp)rfr?rfr|rfrp 


m  //  <t>2(r!)<t>T(rp)<t>!(r!)«J>?(rp)S(rt -rP)rfrfdrP,  (209) 


where  we  have  used  the  orthogonality  of  (f>®  and  <f>| 


A.  5. 1.3  Term  3. 


^e^r?)^(r^)4.P(rP)]28(r^-rp)£/r^r^/rP 


=  /  m(rl)Ydrl  II  ^(r^)<(rP)]25(r^-rP)^r/rP 


^‘TWd*2  /  [^(rP)<(rP)]^rP  =  5M  (210) 


A.5.1.4  Term  4. 


■5(rt)<t>|(r|)<t>?(rP)]25(r|  -  r»)dr\dr\drr 


= '//  [<H(r?)<(r|,)]25(r!-rP)drWr[’ 


■|(rP)<t.?(rP)]2rfrP  =  5’M 
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A.  5. 1.5  Term  5. 


-2  J  «(r;)^(rt)^(rP)«(r;)<®r|)<(rP)5(r|-rP)*5rfr|rfrP 
=  -2 f^rntfr^' ( f - i4wrp = o  am 


A. 5. 1.6  Term  6. 

j'WM iHe2(rD^(rp)]25(r',-r'>)rfrfrfr5rfrP 

= M(re2«(rP)]2S(r!  -  r-IrfrVr- 

=  /  [«(rP)^(rP)]2<;r'>  =  x!! 

Combining  all  terms,  we  find  that 


T  =  2n  r02 


5j}+5u 


22 


(212) 


A.5.2  Annihilation  Rate  for  an  Arbitrary  NEO-HF  Wavefunction.  Next,  we  will 
investigate  the  annihilation  rate  for  an  arbitrary  NEO-HF  wavefunction.  Substituting  the 
general  form  of  our  wavefunction  into  equation  (199),  we  get: 

8(r  |  -  rp)^  ^(re)^(rP)JreJrP  (213) 

We  can  drop  the  complex  conjugate  notation  since  our  spatial  orbitals  are  real  functions, 
and  the  expression  can  be  rewritten  using  the  expansion  in  minors: 


T  =  Inrkc 


«-?(04>?V 


/  R3(*+l) 


* = jU«.  %( -  i  8(r I  -  r'>) 

N 

x  Y  (-l);+1(|)*(ri)d>o  (|)?(rP)<ireJrP 
2=1  V 


(214) 
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Combining  like  terms,  we  see  that 


9t zr^r  r  ^ . 

jU+.,  Z_ 

ij  t  J 

N 

x  £6(r|-rP)JreJrP  (215) 

k=\ 

We  are  free  to  expand  our  determinants  over  any  row  and  any  column.  Therefore,  instead 
of  expanding  over  1/  and  1  j,  we  choose  to  expand  the  determinant  in  the  Mi  sum  over  the 
Mi  column.  Since  the  8-function  involves  the  Mi  electron,  we  will  soon  see  that  this  is  a 
convenient  choice. 


^  _  2;tr5c  N 


N\ 


I  (- 


i,j,k=  1 


R3^1) 


^>/(rt)lt,5(ri)^i(rp)^i(rp)<i)o<^o  S(r£  —  rp)rfrerfrp 


ki  k  j 


■  I  (~iy+i  I 

i,j,k=  1  JR  ki  kj 


N\ 


(216) 


Here  we  integrated  over  coordinates  of  the  Mi  electron  which  accounts  for  the  8-function 
and  replaces  the  coordinate  of  the  Mi  electron  with  that  of  the  positron.  Continuing,  we  see 
that 


X  = 


2Tlr2c  N  r  N 

-77?-  £  (~l)i+i  /  0'(rpH>'(i'PK(rp)<(rpVr['  £ 
i,  /=!  JR  k=  1 


N\ 

v= 

9  7 rrV  r 

IrEHWEL  *8*8*! 

(J=1  /t=l“'*3(N-l)  fa'  kj 


n*8*8# 

'  ki  k  j 


(k) 


e 


(217) 


Thus,  the  annihilation  rate  of  an  iV-electron,  one-positron  NEO-HF  wavefunction  reduces 
to  the  product  of  a  4-overlap  integral  and  an  interdeterminant  overlap  integral.  Substituting 
the  result  of  equation  (134),  the  HF  annihilation  rate  reduces  to  a  simple  sum  over  four- 
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overlap  integrals: 


2  Tlr^c 
Nl 


N  N 


L  E(-i  )‘+isi;N% 

'=1 7=1 


(218) 

(219) 

(220) 


Now  let’s  re-examine  our  simple  example,  e+LiH,  with  this  general  equation. 


X  =  2^rn« 


2 

Lsl 

i=  1 


11 


=  27trgc 


Sjl+511 


22 


(221) 

(222) 


This  matches  our  previous  result. 
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A. 6  Annihilation  Rate  NE0-MP2  First-Order  Correction 

For  a  NEO-HF  wavefunction,  the  first-order  perturbation  correction  to  the  annihila¬ 
tion  rate  is  given  by 


A/1)  =(  'pW 


N 


27 C/ocJ^8(r,--r1/ 


vp(l) 


=2iV7C^c('P(0)|8(ri-r1/)|'P{1)> 


=2Nnr{)c(  Of)OP 


o^o 


S(rt  -rv) 


E  -  E  epCrf<t£<i>r 


a<b 

r<s 


_T,  (!)  ,  T,  (!) 
— A/ee  i  Aep  , 


(223) 

(224) 

(225) 

(226) 


where 


and 


-  2Nnr$c(  0f)0|) 


8(ri  -  rv) 


E 


a<& 

r<s 


4?  =  -2A0tr^Of)O[; 


S(rt  -rv) 


E 


ariJ 


(227) 


(228) 


We  will  examine  each  of  these  term  individually,  but  first  we  need  to  introduce  a  new  type 
of  expansion  by  minors  for  an  IV-order  Slater  determinant,  Of),  in  order  to  account  for 
double-electronic  excitations: 


0  i 

<fr?1>2)08  =  ■ 

uij  mi  |  (A7_2)!  i  —  k  =  a  and  j  =  l  =  b. 


=  (iV-2)!8A8;78 


'jb 


(229) 
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A.  6.1  Term. 


4e}  =2Nnrlcl<5>l<$>l\6{n-rv 


\ 


a<b 

r<s 


E  "C5*S*S 

Kb 
r<s 

2Nnrlc  £  eeC  /  dredr!^(re)4v(iv)5(ri  -  r10^(re)^)1/(rr) 


2Nnr()c  i  pe  i  i  / 

E  "csEK 


TV! 


a<Z>  i<jk<l 
r<s 


x  /  JreJr^ 


4>«(n)  <t>i(r2) 
<Mr0  4>j(r2) 


4>i'(ri/)5(ri  —  riO 

l*2y 


X 


vs(rO  <Ur2) 

k  k 

VS(r  i)  <Ur2) 

z  / 


4>i'(riO 

U2Z 


2jtrgC  yn  ee^  V  /  i  \i+j+k+l 


(JV-1)! 


E“«EE(-‘)' 

«<Z>  i<jk<l 
r<s 


x  /  *f1>2)*5  *£ 

J  U2j  U2Z 


x  /  dridr2diy 


4>i(ri)  4>/(r2) 

<Mr0  fyfo) 


<^i/(ri/)8(ri-ri/ 


x 


vS(rO  <Ur2) 

k  k 

Yabiy  l)  ¥S(r2) 

Z  Z 

2{N-2)\nrlc 


<Mri') 


w  _  n ,  E  “C  E  E  (-  1  )'+'+‘+'SAS;,S;i. 

vv  V-  a<Z>  i<  jk<l 


r<s 


x  / 


4>f(n)  <>/(**2) 
<Mr0  fyfo) 


4>i'(ri')S(ri-ri, 


x 


V"fc(rl)  <Ur2) 
Z:  I- 

¥S(r0  <Ur2) 

Z  1 


<MriO 


(230) 

(231) 


(232) 


(233) 


(234) 
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2^E 

1  a<£>  /<  / 

r<s 


N 


x  / 


x 


4>i(ri)  4>i(r2) 
<Mr0  (fj(r2) 
<«Uri)  <'Ur2) 


<h'(ri')8(n  -  rv) 


v^(r0  <;Ur2) 


<MriO 


2ki-qC  ^  ee 


Af  - 


7  E  eecS  [  dridr2drv 


X 


271  ?nC 


4>l'(rl') 


AA 


a<b 
r<s 

<Mri)  ^r(r2) 

4>-s-(ri)  fv(r2) 

°T  E  6eCS  [  dr  \dr2dr\i 

r<s 


<|>a(ri)  ^>a(r2) 
^(ri)  4>fo(r2) 


<h'(ri')8(ri  ~rv 


x  [^a(r1)4)fo(r2)-^;(r2)^(ri)]4)r(r1,)8(ri  -jy) 


x  [4>7-(ri)4>.v(r2)  -  <t>r(r2)<|)5.(r1)]  <h'Ov) 


2nrgC 

N-l 


L"c; 


ab 


a<b 

r<s 


— r  i,)4>i,(ri/) 


x  {  [4>fl(ri)4>ft(r2)4>7-(ri)4>.v(r2)] 

-  [4>fl(ri)4>ft(r2)4>7-(r2)4>.v(ri)] 

-  [<>a («*2)<l>*(ri )<>r (ri )<>, (r2)] 

+  [^(r2)^(ri)^(r2)^(ri)] } 


(235) 


(236) 


(237) 


(238) 
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ri)4>,-(ri)4>i'(ri')S(n 


ri  )<>s(ri  )<>i/  (ri^  )5(ri 


n'Hl'(ri') 


'4>Z?(ri)4,r(ri )4>i^ (ri/)S(ri  -  rr)<h'Oi') 


/4>/,(ri)^,(ri)^)1/(r105(ri  -  r1/)<|)1/(r1/) 


=  0 


(239) 


(240) 
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A.6.2  X^ep  Term. 


X$=-2 Nnrlci  <^<f>p 


0L  \ 


8(n  -#v) 


£epC^,^<, 


=  -  2N%rlc  £  epC^',  f  clredrv<PeQ{re)§i>(rv)§{n  -  riO^(re)^(rj 


-  wi,ocI'PcrfE(-1),+' 


TV! 


'7 


x  J  JreJr1/4)/(ri)^  ^r(r105(r1 -r10v«(ri)^)«.4,x(ri' 

arr'  i  j  J 


(iV-1)!  “  “  ^  -T  '  J  ^  1/  iy 

x  />JriJr1/^(ri)^1/(ri/)6(ri~r1/)\(/fl(ri)^(ri/) 


Jthw^oc  E  epCr  E(  -  1)'+J5,V5, 


U 


x  J  dndr1/<|)i(ri)<|)1/(ri/)8(ri^r1/)\|^(ri)<|)r/(ri/) 

=  -2^cEel>C^EMf8l 


x  j  JriJr1/^(ri)^1/(r1/)8(n -r!0V/(ri)^''(ri') 

=  - 2tc^c  £ epC^',  j  JrK/r14a(r1)^)1/(r1/)8(ri  -  r1/)^),-(ri)^/(r1/ 

ar/-' 

=  -  2nrf)C  £  epc;;;',  f  dri^a{rv)hfM^r{rv)^Arv) 

arr '  ^ 

=  -2^c£'PC^'/ 


(241) 

(242) 

(243) 

(244) 

(245) 

(246) 

(247) 

(248) 

(249) 


Therefore,  we  see  that  the  X^  term  is  zero,  and  as  with  the  energy  expressions,  the 
only  nonzero  first-order  perturbation  correction  to  X  results  from  the  single-electronic/single- 
positronic  term. 
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A.7  Calculation  of  the  Four-Overlap  Integral 

As  seen  in  previous  sections,  the  calculation  of  the  annihilation  rate  from  the  NEO- 
HF  electron-positron  wavefunction  is  simply  a  matter  of  calculating  the  four-overlap  inte¬ 
grals,  Sj'j 1 ' .  Also,  for  the  first-order  correction  to  the  annihilation  rate,  it  is  necessary  to  cal¬ 
culate  four-overlap  integrals  of  the  form  •  In  order  to  compute  these  integrals,  we  need 
to  develop  the  general  form  of  the  four-overlap  integral  across  four  Gaussian  primitives  of 
arbitrary  angular  momentum,  which  we  will  denote  with  a  lower-case  s  (to  distinguish  from 
the  four-overlap  integral  that  was  previously  defined  as  being  over  molecular  orbitals): 

s\\  =  [  cpi(r)92(r)93(r)cp4(r)Jr  (250) 

,/R3 

where  cp,  is  a  Gaussian  primitive  with  angular  momentum  numbers  m,,  nf  and  exponent 
a,  located  at  point  A,  : 


with 


<P*(r) 


_  Yh  vmi 7ni  -ai(4,+3'i,+4i) 

-xAiy\izAie 


li  mi  rii  —  0C/ri 

=xkiy A!Mie  ' 


(251) 

(252) 


xAj=x-A  j 


(253) 


Using  the  Gaussian  Product  Theorem, 


v34 

512 


/ 1  U  h  h  mr  mi  rm.  iha  n\  nj  m,  ha 
XAXXA  A^A.y^yA.yAWA^A^A, 


X  exp 


_  2 

-ai(X2  (AiA2)  /Yp 


exp 


_  2 

-a3a4  (A3A4)  /y q 


x  e  yi,rve  VQdxdydz, 


(254) 
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where 


Y P  =ai+a2 

Yq  =  a3  +  a4 


aiAi  +  a2A2 

Y P 

0C3A3  +  (X4A4 

Yq 


Applying  the  Gaussian  Product  Theorem  again, 


„34  _ 
s\2  — 


/1  lo  h  L  mi  mo  mi.  m4  n\  no  no  n4 

xilxA2xAAyA\yA;yAly^A^M^A4 


x  exp 
x  exp 


_  2 

-octa2  (AiA2)  /y p 


exp 


_  2 

-a3a4  (A3A4)  /Yq 


-YpYq  (PQ)2  /Y, t\e  ~1'  r'  dx  dy  dz 


1 1  lo  lo.  I4  mi  mo  mo  m4  n\  no  no,  n4 

VAo^VMyAiyAlyA/VAoVA, 


x  exp 
x  exp 


_  2 

-cxia2  (AiA2)  /y p 


exp 

2 


_  2 

-OC3CC4  (A3A4)  /Yq 


-YpYq  (PQ)  /Y t  e  y,x~Te  ltTTe  Y,z-r  dx  dy  dz„ 


where 

Yt=Yp  +  Yq 

and 

T  =  YpP  +  YgQ 

Yt 

Separating  variables,  s3^  can  be  rewritten  as 


s\i  =exp[-aia2  (AiA2)  /yp] 
x  exp[— a3a4  (A3A4)  /yq] 
xexp[— ■ YPYq{VQ)2 /Yt] 

X  IXIyIz, 


(255) 

(256) 


(257) 


(258) 


(259) 


(260) 


(261) 


where 


Ix  = 


AAiAA?  y,xr'dx 


(262) 
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(ly  and  Iz  are  defined  similarly.) 
It  can  be  shown  that 


AAi  =  E  4Mh,h,(V&i)x,  (pa2)x), 
;=0 


(263) 


where  /)(/,m,a,Z?)  is  the  coefficient  of  x‘  in  the  expansion  of  (x  +  a)1  (x  +  b)'n .  This  func¬ 
tion  is  commonly  used  in  the  evaluation  of  integrals  over  Gaussian  primitives  in  electronic 
structure  calculations.  Thus, 


JAcxA2xA3XA4  =  E  4>/KM2,(pAt)*,(PA2), 


/3+/4 

x  E  *q/;(*3,*4,  (QA^)x,  (QA^)x) 
j=0 

h+h  _  _ 

=  /2,(pai)„(pa2),) 

1=0 

/3+/4 

x  £  /XZ3,/4,(QA^)x,(QAIW 

j=0 

X  ApAg 


(264) 


(265) 


Applying  Equation  263  to  ApAg,  we  get 


JkAAA  =  E  /<(/l,/2.(PA,)„(PA2),) 
(=0 
/3+/4 

x  £  //(^MQA^MQA^ 
7=0 

*+7  _  _ 

x£A(/,;,(tp),,(tq),)4, 


(266) 
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So  now,  we  can  further  simplify  Ix: 


h+h  _  _ 

h=  £  y;-(/i,/2,(PAi)„(PA2)x) 
(=0 
/3+/4 

x  £  /;(/3,MQA^MQA^) 
j= 0 

X  £  A(i,  j,  (TP)*,  (TQ)X) 

k=0 

x  f  dx 


(267) 


Since  odd  values  of  k  will  produce  a  zero  integral,  the  sum  over  A:  can  go  from  zero  to 
(z  +  j)/2,  and  A:  can  be  replaced  with  2k  both  places  that  it  occurs.  It  is  also  known  that 


/ 


x\ke~^dx 


(2k—  1)!!  /7t\1/2 

(2yr)*  VYzJ 


(268) 


So  now  we  have  all  of  the  necessary  ingredients  to  write  down  the  final  form  of  7X  : 


h+h  _  _ 

Ix=  £/;■(/!, /2,(  PAi)„(PA2),) 

i= 0 

/3+/4 

x  £  /y(/3,MQA&,(QA&) 

j=0 

(*'+y)/2  _  __ 

X  £  flk{h  ji  (TP )xi  (TQ)jc) 
k= 0 

(2k—  1)!!  /7t\  1/2 

X  (2Yz)^  UJ 


(269) 


We  now  have  an  analytic  form  for  the  four-overlap  integral  that  can  be  coded  in 
an  efficient  algorithm  for  computation  of  NEO-HF  and  NEO-MP2  annihilation  rates.  An 
example  of  such  a  code  along  with  the  annihilation  rate  calculation  are  given  the  MChem 
program  in  Appendix  B. 
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A.  8  Fourier  Transform  of  the  Product  of  Primitive  Gaussian  Basis  Functions 

Given  a  function  /,  we  define  the  Fourier  transform  pair  as 

/oo 

ftx)e-lnipxdx,  (270) 

-  oo 

/oo 

F(p)e2nipxdp.  (271) 

-oo 

Equation  (270)  is  called  the  (direct)  Fourier  transform  and  Equation  (271)  is  known  as  the 
inverse  Fourier  transform.  In  equation  form,  these  are 

F{p)  =  f\f{x)}  (272) 

f(x)  =  f~1[F(p)\.  (273) 

A. 8.1  Separable  Functions.  The  wave  functions  that  we  will  be  dealing  with  are 
three-dimensional,  separable  functions.  We  say  a  three-dimensional  function  f(x,y,z)  is 
separable  if  it  can  be  written  as  the  product  of  three  one-dimensional  functions  f\  (x),  f2[y), 
and  /3(z): 

f(x,y,z)=fi(x)f2(y)f3(z).  (274) 

Theorem  1.  (Separability)  If  a  function  f  is  separable  into  three  functions  f\,  f2,  and 
f3,  and  all  three  possess  Fourier  transforms  given  by  F\ ,  Fi,  and  F3,  respectively,  then 
the  three-dimensional  Fourier  transform  of  f  is  simply  the  product  of  the  three  individual 
transforms: 

F(Px,Py,Pz)  =  F\  (Px)F2(Py)F3(pz).  (275) 

A.8.2  Other  Useful  Theorems.  The  following  are  some  other  useful  theorems 
concerning  Fourier  transforms.  [70] 

Theorem  2.  (Linearity)  If  both  functions  fix)  and  g(x)  have  Fourier  transforms  F(p)  and 
G(p),  respectively,  then  h(x)  =  af(x)  +bg(x)  has  Fourier  transform  aF(p)  +bF(p). 

Theorem  3.  (First  Shifting  Theorem)  If  fix)  has  a  Fourier  transform  F(p),  then  the  Fourier 
transform  of  f(x  —  xq)  is  given  by  F(p)e~2mpx°. 
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Thus,  a  phase  shift  in  the  spatial  domain  gives  rise  to  a  sinusoidal-type  modulation  in 
the  momentum  domain.  Important  to  note,  however,  is  that  the  modulus  of  the  transform  is 
unchanged  or  invariant: 

\F(p)e~27ZipXo  |  =  |  F(p)  \\e~2nipx°  |  =  \F(p)\  (276) 

Theorem  4.  (Derivative  of  the  Transform )  If  fF[f(x)\  =  F(p)  and  ‘J{xn  f(x)]  exists,  then 
they  are  related  as  follows: 

{-2ni)nfF[xnf(x)]  =  d-^-.  (277) 

From  this,  we  see  that  the  Fourier  transform  of  xnf(x )  is  found  by  taking  the  nth 
derivative  of  F(p)  and  dividing  the  result  by  (—27 ii)n. 

A.8.3  Self-Reciprocity  of  Gaussian  Functions.  It  is  well-known  that  Gaussian 

2 

distributions,  f(x)  =  e~ (Lx  ,  enjoy  a  special  status  called  “self-reciprocity”.  This  is  easily 
shown  [70]: 


F(p)  = 


e-ax  e~2nipxdx 
e-a(x2+2nipx/a) 


We  can  write  x2  +  2nipx/a  as  (x  +  inp/a)2  +  (tip /a)2. 


F(p)  = 


g-a[(.v+/7ip/a)2+(7ip/a)2]jx 

) 

e-a{x+mp/a)2  e~a(Ttp/a)2  clx 


= 


-a  (x+inp/a)2  (jx 


Performing  a  change  of  variable,  5  —  x+inp/ a. 


F{p)  -  e~np  /  e~as~ds 


(278) 

(279) 


(280) 

(281) 

(282) 


(283) 
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s  is  complex,  and  this  integral  requires  contour  integration.  It  can  be  shown  that  the  integral 


is  y/nfa.  Thus,  the  Fourier  transform  of  the  Gaussian  distribution  is 


5\e 


-our 


K  _,t2  „2 


=  \l  ~e 

a 


n2p2/a 


(284) 


A.8.4  Fourier  Transform  of  a  Molecular  Orbital.  As  shown  in  equations  (80) 
through  (85), 

< =  (285) 

k 

Since  the  individual  Gaussian  primitives  are  separable,  this  wavefunction  can  be  rewritten 
as 

fa  =£Q(*  -  Ak^e-^-^2 
k 

x  (y-  AKy)mke~ak{y~Ak^2 

x  (z-  AKz)nke~ak[-z~Xk^2  (286) 


112 


Now,  using  Theorems  1,  2,  3,  and  4  (in  that  order),  the  Fourier  transform  of  the  spatial 
orbital  is: 


(287) 


(288) 


(289) 


(290) 


(291) 


A.  8. 5  Products  of  Spatial  Orbitals.  We  also  need  to  perform  the  Fourier  trans¬ 
form  of  the  product  of  two  spatial  orbitals,  and  for  this,  we  need  to  examine  the  Fourier 
transform  of  the  product  of  two  Gaussian  primitives,  ‘J  cpj1  ,m  (p^2’'”2’"2  .  Using  the  Gaus- 
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sian  Product  Theorem, 


7 


(nh,mi,ni  h,  W2,  «2 

t  |  S+ 


=  7 


P  ( -«1«2  (AiA2)  Vy.) 


A  2 


(292) 


where 


Y?  =ai+a2, 

q  _  K1Ai+a3A2 

Separating  variables  and  applying  Theorems  1  and  2, 


7 


J\,m\,ni  l2,m2,n2 

ST  S’2 


=  «i «2(a i A2)  h«Fxfyfz 


where 


Fx  =  7 


AAie  Vq 


Using  Equation  (263)  and  applying  Theorem  2, 


Fx  =  7 


h+h 


E*Q/r(/i,MQAiUQA2)xK 


Vq 


r= 0 


h+h  _  _ 

I  /^^(QAiUQA,)*)^ 

r=0 


a-qC  Vq 


Now,  rewriting  aq  as  (a  —  Qx)  and  applying  Theorem  3, 


h+h  _  _  r 

Fx=  £/r(/i,/2,( QAiMQA,)^  (a  —  Qx)re 

r=0  L 

6+6  _  _ 

=  I  /r(/i,/2,(QA1)x,(QA2)x)e-2ra>^5 

r=0 


Jq  (x  Q.v 


Are-^" 


(293) 

(294) 

(295) 

(296) 

(297) 

(298) 


(299) 

(300) 
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Applying  Theorem  4  and  Equation  (284)  (and  simplifying), 


h+k 


1  dr 


F*=  E  Wuk,  (QAl)„  mi),)e-2nipA  (_2ni)rdp 

h+k 2  _  _ 

=  £  Mh,h,  (QAi)*,  (QA2)x)e~2niPxQ- 

r=  0 


7 


- IqX 2 


i  d' 


(-27 Ii)rdprx\j  yq 


h+k 2  _  _  HjT  1 

=  E/,((l,fe,(QA0,(QA2)>-^^FSiirv  Tf 

h+fe 


2%2Px\  e-K2plhq 


V  Y?  V  Y?  7 


r=0 


(301) 

(302) 

(303) 

(304) 


Substituting  this  result  into  Equation  (295),  we  get 


7 


h,m2,n2 

Ti  Y2 


h+k 2  _  _ 

x  £  /r(/i,/2,(QAi)x,(QA2) 

r=0 
mi+m2 


_  g"CXia2(A1A2)2/Y?  —e~ 2m'p-Q g-7i2p2/Y« 

V  Y<? 

nip  A' 


Y g  7 


X 


£  /,(mi,m2,  (QAi)y,  (QA2)v)  (  ^ 
s=0  V  Y? 

x  £  /r(nt,n2,(QAi)z,(QA2)z)  f^) 
r=0  V  Y?  7 


(305) 


Now,  we  introduce  a  notation  analogous  to  that  used  for  the  four-overlap  integral  for  the 
Fourier  transform  of  wavefunction  products: 


Gfj  =  7mk  ]*7[Wi\ 


(306) 


for  spatial  orbitals  and 

gfj  =  7[mk]*7[m\  (307) 

for  Gaussian  primitives.  In  section  A. 9,  it  is  shown  that  the  two-photon  momentum  density, 
p2Y(p),  for  a  NEO-RHF  electron-positron  wavefunction  is  related  to  the  squared  modulus  of 
the  Fourier  transform  of  the  product  of  two  spatial  orbitals.  This  expression  can  be  written 
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as 


where 


Gu  =  l^[<h(r)<l>2(r)]r 


7 


A  ij,mj,njl 

j  k 


=  E0  Cl 

jk 


7 


9 


Ij-HljMj 


(aj,AjWr‘'"‘(ak,Ak) 


EO  CUD 


jk 


=  E<fci 


a.jak(\jKk)2 hjk  e~ 2™P'Qjk  e-K2V2hjk 

V  yjk 


jk 

h+h 

X  H  fr(lj,lk,{Qjk^j)x,(Qjk^k)x) 
r=  0 
ntj+rrik 


nip* 

yjk 


X 


£  fs(mj-  mk,  (QjkA j)y,  {QjkAk)y)  f 

V  Y/fc 


x 


,s=0 

rij+tik 

^  ft{njink i  (Qjk^j)z,  (Qjk^k)z) 


t= 0 


Y#  / 


(308) 

(309) 

(310) 

(311) 


(312) 


Y jk  =aj  +  ak 


(313) 


Q  jk 


ajAj+akAk 

yjk 


(314) 
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and  Cj  and  Cj  are  the  basis  function  coefficients  for  orbitals  1  and  2,  respectively.  Expand¬ 
ing  this,  we  get 


G22  =  y  _^le-2ajak(AjAky/jjke-27i2p2/yjk 

jk  yj* 

lj+h 

X  H  fr(IjJk,{Qjk^j)x,{Qjk^k)x) 
r,u=0 


XPx 

Vjk 


r+u 


X  /„(/;,  /fc,  (Q^Ay)*,  (Q jk^k)x) 

mj+mk 

x  ^  fsimj,  mk,  (Qy^Ay)j,  (Q^A/.)^.) 
s,v=0 

X  mk;  {Q.jk^-j)yi  (Q/A'A^)-y)  (  — — 

V  Y/fc 

rij+iik 

X  ^  f(nj-nk-  (QjkAj)z)  (Q^A/;)^.) 


j+v 


r,iv=0 

X  fw(nj,  klk-  (Q jk^-j)z.i  {QjkA-k)z) 


fKPz  y+w 
VY/J 


(315) 
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A. 9  The  Two-Photon  Momentum  Density 
From  Ref  [38],  equation  (7), 

2 

p2y(p)  =  4nrlcN  j dr*[x)  ^'<iri£/r1/e“27C'p'(ri+ri'^28(r1/ —  ri)vF(re,r1/)  (316) 
Integrating  over  the  positron  coordinates,  we  get 

2 

p2y(p)  =  4nrlcN  j dre(V)  j  drie~27I'p'rivP(re,ri)  .  (317) 

Here,  vF(rc.  iq )  is  the  iV-electron,  one-positron  wavefunction  with  the  coordinates,  iq,  sub¬ 
stituted  for  the  positron  coordinates,  ry. 

Substituting  the  NEO-RHF  wavefunction  into  equation  (317), 


P2y(p)  —4nrQcN 

fdth) 

J  i/r1^_2rapri<J>(((re)(j)]/(ri) 

=4^rQcA^ 

fdrl  i) 

j  dr,e  •”'pr'^T£(  l)'+1<t*i(ri)«*»^  <t>i-(ri) 

—4nrQcN 

/*(  i) 

-E£(-l)i+1<f>§|  dr^-2’1™  <t>,(r,  )Mr,) 

=4nrlcN 

/*(  i) 

N  ^ 

^fl(-l)'+1<l>§i7[*i(ri)<l>i'(ri)] 

4'JirQcN 

AT) 

A-TZr^  c  N . 

=7^^£(-1)i'+7'^[^(ri)^tKri)]^[^<riHi'(ri)](Ar-1)!% 

iij 

=47trgc£|]F[^(ri)^r(ri)]|2 

i 

=4^1^ 


(318) 

(319) 

(320) 

(321) 

(322) 

(323) 

(324) 

(325) 
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For  NEO-MP2, 


¥(r',  r,,)  =  +  £  “C£< 

ariJ 


a<b 

r<s 


Substituting  the  NEO-MP2  first-order  wavefunction  into  equation  (317), 


P2Y(P)  =4  nrlcN  j  drew 


x 


r/r|f-2"l>ri<I>5(r')0|.(ri) 


+  E"CS*S(i-e)fi'(n) 


a<b 

r<s 


-VPC"^r‘)Mn) 

ar?J 

=4nrlcN  J 

r  1  N 

Jrie-2->ri  — £(-l)^>,(rt)^  Mn) 

VN\  i j 


N 


+  I  eeCl^=i:(-l);'+1¥S(ri)^iKri) 


a<b 

r<s 


1  j 


-L-cZ'h-ir'KfrWMn) 

VN\  ,  J  1 J 


')■  (326) 


(327) 


(328) 
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p2y(p) 


4nrgC 

(N—l)! 

N 


clr ' 


(i) 


£(-l);+1^o  [ drxe  2rop'ri^(ri)^)r(ri) 
j  'iJ 

+  EeeCSE(-l)y+1^  [ dr.e-^Y^ riHiKri) 

u  ;  I i J  i 


a<b 

r<s 


J 

N 


EepOK-l)Y+1^.y  Jr1e-2->r>^(r1)(^,(r1) 


4^r^c 

(,/V—l)! 

N 


drh 


i  l  v 
+  E“C*^KMri)Mri)] 


a<b 

r<s 


1  j 


LSPCral^a.nYa(  ri)^(n)] 

“>  i;  j 


(329) 


(330) 
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p2y(p) 


4  TlfnC 


N 


T^ZrryT 7 

+  2  £  “CS4>§*4>”i,y[*(r1H1.(ri)]*?'[<i,(r1H1.(r1)] 

a<b  u  ]J  J 

r<s 

-2l'pC^4>r<t;?-[*(riHr(r1)]*y[¥?(r1)^(r1)] 

if  '*  ' 

+  E  “C3  E  "C^5<**S*  «>S  ^  [V53  (*•■)<!>.'  (r.  )]*  2T  [V|^(r (ri )] 

a<fc  c<rf  1*  i  j  i  j 

r<s  t<u 

-2  E  ^K(-'l)'l>l'(n)]*?W:(riM>/(r,)] 

ci<^b  ctt'  1  i  J  i  J 

r<s 

+rp^rni^i  nv^Mriwnyii^Ari)] ) 

an1  bss1  U  ]J  1  J  J 


(331) 


A-TCr^r  N .  (  r 

^ ^[^(rO^rCrOl^^^rO^rCri)]  / 


.0 


dr[x)n&a . 

v  ;  l i  !; 


.rs 

•ab 


+2E"cS?'['l'i(n)+,'(i'i)]*?:W(f1)<l>i'(i'i)] 

a<b  J  h  ]J 

r<s 

-2 Y<ePC'avs  LY; 

arr' 

+  Eeec3E“C?[v: 

a<b  c<d  1 

r<s  t<u 

-2  £  “CS^C",'  JWifrOMr,)]'?  W:(ri)<lv(ri)]  U^pfC 

a<b  ctt'  1  ]  U  Lj 

r<s 

+  Eep^ E'P^^W(r,)^(r,)]*5W(r,)^(rl)]  [ dv\^% 

an ’  bss'  '  J  J  11  V , 


1*  crw.ftu. 

r ca 

j 


“r(l)%fo  ®cd 
1/  1  j 


(332) 


121 


4  TLV^“  C  ^  ( 

p2T(p)=^l)!^(_1)'+Y  1 [<fi(ri»1'(ri)|*?fc(ri)'t>r(ri)]('V-1)!8,7 

-2ECPC^?[^(rl)*l'(rl)]*^W(r,)^(r1)](A'-l)!5,75>» 

J 

+  E  “C5  E  “CJS  ^  [ M'S  (1-!  )<I>1 '  (r  J )]  *  ir  [^(r !  (r , )] 

a<b  c<d  1  J 

r<s  t<u 

X(N-  1)!(8  ifiacSbdSrtSsu  +  &ifiia§jc§bd§su  +  Sij&,b&jd&ac&rt) 

+  EePc:rEePCM^W(n)^(n)]*?W(r,)f,.(r,)] 

artJ  bss'  J 

X  (N-  \  )l(8jj8ah8rs  +  SijSufijb) 

N  ( 

=4JCAocL(  l^[^-(rlHl'(rl)]| 

_2£epc"'^[^(ri)^i,(ri)]*^[^(ri)^(ri)]6/fl 

!  1 
arr 

+  E  “C£  E  “C?  W(riHl'(i-l)]*5l*(nHl'(ri)] 

a<b  c<d  ‘  i 

r<s  t<u 


(333) 


X  {&ac^bd$rt&su  3“  ^ia^ic^bd^su  3“  ^ib^id^ac^ri ) 

+  EePCi-  ECPQr ?W(n)^(r,)]*J-K(ri)^(ri)]  (W„  +  8A)  ) 

arr1  bss'  1  / 

(334) 
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N 


P2y(P)  =47lrgc^£|^[^(r1)^1/(ri)]|2 

-  2  £  epC^5[^(riHr(ri)]^[^(ri)^(ri)] 


arr 

N 


+EE("C; 


rs  \2 
ab) 


i  a<b 
r<s 


TWab(  ri)Mri)] 
i 

+  E  ™cab  E  eeCS^[^(ri)^i/(ri)]*^[^(ri)^i/(ri)6ac5M5, 

a<b  c<d  a 

r<s  t<u 

+  E  "c5  E  “C?M>I(r,W,.(r,)]*?Ki(r1Wr(r1)]5„At.8 

a<b  c<d  b 

r<s  t<u 

+  E  E  epCrepCr?[v'«(n)f'(r,)]*?W(n)^(ri)] 

,  /  i  l 

i  arr  s 

+  Eepc^E'pQ^[«ri)^(r,)]*?W(I'i)^(I'i)]8' 

arr'  fcxs'  a 

(  N 

=4^cf  £|^[^-(riHi'(ri)]| 

_2^epqT;j[^(ri)^i,(ri)]*j[^.(ri)^(ri)] 


arr 

N 


+EE("C; 


rs  \2 
ab) 


i  a<b 
r<s 


^[VaZ>(rl)Mrl)] 


+  E  eeCareca^[^(ri)^r(r1)]^[^(ri)^1/(ri)6, 


a<b 

r<s 

t<u 


+  E"CS"C7[^(r1H,.(r1)]*?»„(r1)*r(r,)]8„ 


a<b 

r<s 

t<u 

N 


+  E  E  'pc;p'pC3'A[¥S(r,A(r,)]*y[¥?(r,)^(ri)] 

/  /  l  l 

i  arr  s 

\ 

+  £  epc-; epc^ir [^(r! )<>^ (n )]*^ [^(n )<>^ (n )] 


(335) 


(336) 
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N 


p2y(p)  =4nrgC  (  £|JM>*(ri)Mri)]r 


■2EePc«i'^[^(riHi'(ri)]^[^(riHr'(ri)] 

anJ 


N 


+EE("CS)2 


i  a<b 
r<s 


+  E  eec;;rCm(ri)Mri)]*m(riM>l'(r,) 

a<b 

r,t<s 

+  E  “C“Cm(ri)Mri)]*m(n)iMri)] 

a<b 

r<s,u 

+  t  E  e|,c:repc;;^[v5(n)^(r,)]*?[v5(r,)^(ri)] 

/  /  l  l 

i  arr  s 

+  E  epC;eI’C^?[^(r1)^(ri)]*7»I(ri)^(r1)]) 

ars/s '  / 


(337) 
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Appendix  B.  MChem 


1.  The  MChem  program  is  a  collection  of  functions  for  doing  quantum  chemistry  calcula¬ 
tions  in  Mathematica  using  MathLink.  It  is  written  in  the  CWEB  [29]  literate  programming 
language,  and  the  CWEB  class  file  is  utilized  for  making  the  pretty  output  for  inclusion  in 
LTpX .  Many  of  the  functions  were  adapted  from  the  PyQuante  program.  [41]  In  addition 
to  the  excellent  source  code  documentation  provided  within  the  PyQuante  program,  Szabo 
and  Ostlund  [63]  was  referenced  for  basic  theory,  Taketa  et  al.  [66]  for  analytic  solutions  to 
many  of  the  integrals,  and  Cook  [10]  for  implementation,  especially  integral  storage. 

Although  much  slower  than  the  fortran  code  written  for  inclusion  in  GAMESS,  this 
code  is  much  easier  to  understand  and  debug.  To  save  space,  only  the  functions  for  calcu¬ 
lating  the  four-overlap  integrals  and  the  HF  annihilation  rate  are  included.  The  complete 
MChem  package  includes  functions  and  routines  for  computing  the  MP2  energies  and  an¬ 
nihilation  rates,  including  the  electron-electron  and  electron-positron  terms  individually. 

2.  The  structure  of  MChem: 

( Header  files  3 ) 

( Global  variables  4 } 

( Main  program  5 ) 

( Integral  functions  6 ) 

( Auxiliary  functions  8 ) 

( Matrix  functions  1 3 ) 

( MathLink  information  29 ) 

( MathLink  Input/Output  15 ) 

3.  Header  files.  MChem  requires  a  few  standard  header  files  from  C++  as  well  as  the 
mathlink.h  header  file  that  is  included  with  Mathematica. 

(Header  files  3)  = 

#include  <assert.h> 

#include  <mathlink.h> 

#include  <math.h> 

#include  <float.h> 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

This  code  is  used  in  section  2. 

4.  Global  variables.  Some  global  variables  are  defined.  MAXJ3AS  and  MAX_M0  can  be 
redefined  as  necessary. 

( Global  variables  4 )  = 

#define  ZERO  1.0  •  10~10  / *  used  in  some  tests  to  avoid  divide -by-zero  errors  */ 

#deflnePl  3.1415926535897932385  /* the  value  of  n  */ 
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#define  MAX_BAS  128  /*  maximum  number  of  basis  functions  that  can  be  used  */ 

#define  MAX_M0  128  /*  maximum  number  of  molecular  orbitals  that  can  be  used  */ 

This  code  is  used  in  section  2. 

5.  Main  program.  The  main  program  is  standardized  for  all  MathLink  programs. 

( Main  program  5 ) 
i nt  main( int  argc, char  *argv\]) 

{ 

argc  —  argc; 

return  MLMain  (0,  argv); 

} 

This  code  is  used  in  section  2. 
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6.  Integral  functions.  The  complete  MChem  program  includes  all  of  the  integrals 
necessary  to  compute  the  Hartree-Fock  and  MP2  energies  and  annihilation  rates.  Here, 
only  the  four-overlap  integral  is  included. 

( Integral  functions  6 )  = 

( FourOverlap  7 ) 

This  code  is  used  in  section  2. 

7.  The  FourOverlap  function  computes  the  four-overlap  integral  that  is  used  in  the  cal¬ 
culation  of  the  electron-positron  annihilation  rate.  It  is  the  integral  over  two  electronic  and 
two  positronic  molecular  orbitals: 

Siji’f  =  f  tyi(r)tyj(r)tyf(r)tyf(r)dr  (338) 


(FourOverlap  7)  = 

double  FourO verlap (double  Expl,  double  ExpJ,  double  ExpK,  double  ExpL,  double 
Norm!,  double  No rmJ ,  double  Norm K,  double  NormL,  int  //[3],long 
Men, int  /i[3],long  Ulen, int  /7f[3],  long  IKlen, int  /L[3],long  ILlen, double 
r/[3],long  rllen, double  rJ [ 3 ] . long  rJlen, double  r/f[3],long  rKlen, double 
rL  [3],  long  rLlen ) 

{ 

int  i,  j,  k.  m; 

double  gammap,  gammaq ,  gammat; 

double  P[3],  Q[ 3],  T[3],  Prl[ 3],  PrJ[3],  QrK[ 3],  GrL[3],  TP [3],  TQ[3]; 

double  rIJ[ 3],  r«L[3],  PQ[3]; 

double  rlrJsq  =  0.,  rKrLsq  =  0.,  PQsq  =0.; 

double  7[3],  iF  j7; 

double  x/,  x2,  x3,  x4; 
gammap  —  Expl  +  ExpJ\ 
gammaq  =  ExpK  +  ExpL; 
gammat  —  gammap  +  gammaq', 
for  (k  =  0;  k  <  3;  k++)  { 

P[k]  =  {Expl  *  rl  [k]  +  ExpJ  *  rJ [&] ) / gammap-, 

Q  [&]  =  ( ExpK  *  rK  [k]  +  ExpL  *  rL  [k] )  / gammaq ; 

T[k]  =  {gammap  *  P\k\  +  gammaq  *  Q\k\) / gammat', 
rIJ  [k]  =  rl  [k]  —  rJ  [k] ; 
rKL  [k]  —  rK  [k]  —  rL  [k] ; 

PQ  [k]=P[k]-Q[k]- 
PrI[k]=P[k\-rI[k\- 
PrJ  [k]  —  P[k]  —  rJ  [k] ; 

QrK[k\  =  Q\k\-rK[k\, 

QrL[k ]  =  Q[k]-rL[k]\ 

TP  [k]  =  T[k\-P[k]- 
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TQ  [k]  =  T[k]~Q[k]\ 

I[k]  =  0.; 

} 

rlrJsq  =  rIJ [0]  *  rlJ [0]  +  rIJ [\]  *  rIJ [l]  +  rlJ [2]  *  rIJ [2] ; 
rKrLsq  =  rKL[ 0]  * rKL\ 0]  +  rKL\  1]  * rKL[  1]  +  r^L[2]  * rKL[ 2]; 

PQsq  =  PQ[0]*PQ[0]  +  PQ[1]*PQ[1]  +  PQ[2]*PQ[2]; 
for  (m  =  0;  777  <  3;  777++)  { 

for  (7  =  0;  i  <  ll[m ]  +  // [777] ;  7'++)  { 

il  =  prefactor  ( 7,  II  \m] ,  IJ  \m] ,  PrI  [ml ,  PrJ  \m] ) ; 
for  (j  =  0;  j  <  IK [m]  +  lL[m\;  ./'++)  { 
jl  =  prefactorij .  lK[m\,lL  \m],  QrK\m] .  QrL\m\); 
for  (&  =  0;  k  <  (i  +  j)/2;  k++)  { 

/[/77]  +=  il  *  jl  *  prefactor  (2  *  k.  i,  j.  TP  [777] , 

T  Q  [777] )  *  sqrt  ( P I  /  gammat )  *  factorial!  ( 2  *  &  —  1 )  / pow  (2.*  gammat,  k ) ; 

} 

} 

} 

} 

xl  =  Norml  *  NormJ  *  NormK  *  NormL  *  7[0]  *  /  [l]  * 7[2] ; 
x2  —  exp  (  —  1.0*  Exp  I  *  ExpJ  *  rlrJsq  /  gammap ) ; 
x3  =  exp  ( —  1 .0  *  ExpK  *  ExpL  *  rKrLsq  /  gammaq ); 
x4  —  exp  (—1.0*  gammap  *  gammaq  *  PQsq /gammat ) ; 
return  xl  *x2  *x3  *x4; 


This  code  is  used  in  section  6. 
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8.  Auxiliary  functions.  There  are  several  Auxiliaryfunctions  used  in  quantum  chem¬ 
istry  codes,  many  of  which  are  part  of  MChem.  A  few  of  those  functions  are  required  by 
the  FourOverlap  function  and  are  listed  here. 

( Auxiliary  functions  8 )  = 

(prefactor  9) 

( factorial  1  10 ) 

( factorial  1 1 ) 

(binomial  12) 

This  code  is  used  in  section  2. 

9.  The  function  prefactor  computes  the  coefficient  of  xJ  in  (x  —  a)p(x  —  b)q . 

(prefactor  9) 

double  prefactor{ int  /.int  p.  int  q.  double  a,  double  b) 

{ 

int  r,  rmax\ 

double  powl  =  0.,  pow2  —  0.,  frslt  =  0.; 

rmax  =  (./'  <  p)  ?  j  :  p\ 
if  (./  >  p  +  q)  frslt  =  0.; 

else  { 

for  (r  =  0;  r  <  rmax\  r++)  { 

powl  =  (Jabs  (a)  <  ZERO  A  (p  —  r)  <  0)  ?  0.  :  pow(a,  (p  —  r)); 
pow2  =  (fabs(b)  <  ZERO  A  (q  +  r  —  j)  <  0)  ?  0.  :  pow(b ,  (<7  +  r  —  _/)); 
frslt  +=  /vnt’/  * pow2  *  binomial {p.  r)  *  binomial {q.  j  —  r)\ 

} 

} 

return  frslt ; 

} 

This  code  is  used  in  section  8. 

10.  The  function  factorial  1  computes  n\. 

( factorial  1  10 )  = 

int  factoriall  (int  n) 

{ 

return  [n  <  1)  ?  1  :  (n  *  factorial  1  (n—  1)); 

} 

This  code  is  used  in  section  8. 

11.  The  function  factorial  computes  n\\. 

(factorial  11  )  = 

int  factorial  { int  n) 

{ 
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return  (n  <  1)  ?  1  :  (n  *  factorial  (n  —  2)); 

} 

This  code  is  used  in  section  8. 

12.  The  function  binomial  computes  the  binomial  coefficient, 

/  a\  a\ 

( a  —  b)\b\ 


(339) 


(binomial  12)  = 
int  binomial^ int  c/.  int  b) 

{ 

return  (a>b)l  factorial  1  (a)  /  (factorial  1  ( a  —  b)  *  factorial  1  (b))  :  0; 

} 

This  code  is  used  in  section  8. 
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13.  Matrix  functions.  Several  routines  in  MChem  are  organized  under  the  um¬ 
brella  MatrixF unctions  because  they  all  perform  loops  over  integrals.  For  instance,  the 
LambdaHF  routine,  which  is  included  here,  computes  the  HF  electron-positron  annihila¬ 
tion  rate  by  looping  over  the  four-overlap  integrals  calculated  in  the  FourOverlap  function. 
( Matrix  functions  13 )  = 

(LambdaHF  14) 

This  code  is  used  in  section  2. 

14.  LambdaHF  computes  the  Hartree-Fock  annihilation  rate: 

N 

XHF  =  2TZr%C1£SliVV  (340) 

i=  1 

where  Sapp  is  the  four-overlap  integral  involving  the  /th  doubly-occupied  electronic  molec¬ 
ular  orbital  (MO)  and  the  occupied  positron  MO,  ip  is  the  classical  electron  radius,  and  c  is 
the  speed  of  light. 

(LambdaHF  14)  = 
void  LambdaHF  (void) 

{ 

int  i,  m,  «,  o,  p; 
double  mnopsum  —  0.; 
double  lambdahf  —  0.; 

(MLGetebasis  16); 

(MLGetpbasis  17); 

( ML  Get  nocc  26 ) ; 

(MLGeteExp  18); 

(MLGetpExp  19); 

( ML  Get  eN orm  20 ) ; 

( ML  Get  pNorm  21 ) ; 

( ML  Get  eA  22); 

( ML  Get  pA  23); 

( ML  Get  eL  24 ) ; 

( ML  Get  pL  25 ) ; 

( ML  Get  evec  27 ) ; 

( ML  Get  pvec  28 ) ; 

for  (i  =  0;  i  <  nocc ;  /++)  { 

for  (m  =  0;  m  <  ebasis;  m++)  { 
if  (fobs  ( evec  [/]  [m] )  >  Z  E  R0 )  { 
for  (n  =  0;  n  <  ebasis ;  n++)  { 
if  {fabs(evec [/][»])  >  ZERO)  { 
for  (o  —  O',  o  <  pbasis',  o++)  { 
if  {fabs{pvec[0][o\)  >  ZERO)  { 
for  (p  =  0;  p  <  pbasis;  p++)  { 
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if  (fabs(pvec[0][p])  >  ZERO)  { 

lambdahf  +=  evec  [z]  [m]  *  evec  [z]  [n]  *  pvec  [0]  [o]  *  pvec  [0]  [p\  * 
FourOverlap  ( eExp  [m] ,  eExp  [n]  ,pExp  [o] .  pExp  [p\ , 
eNorm  \m\ ,  eNorm  [n] .  pNorm  [o] .  pNorm  [p\ ,  eL  \m]  ,3  ,eL  [n] , 
3  ,pL[o\ ,  3  ,pL[p\  ,3,eA  [m]  ,3,eA  [n\  ,3  ,pA  [o] ,  3  ,pA  [p\ ,  3); 

} 

} 

} 

} 

} 

} 

} 

} 

}  /*lambdahf=5.0469693435422D+10*lambdahf;  */ 

lambdahf  —  1.0093938687084- 10+11  *  lambdahf ; 

MLPutDouble  ( stdlink ,  lambdahf ) ; 

return; 

} 

This  code  is  used  in  section  13. 
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15.  MathLink  Input/Output.  The  following  are  MathLink  input  and  output  code 
snippets  that  are  used  repeatedly  in  MChem. 

( MathLink  Input/Output  15 )  = 

(MLGetebasis  16) 

(MLGetpbasis  17) 

(MLGeteExp  18) 

(MLGetpExp  19) 

( ML  Get  eNorm  20 ) 

( ML  Get  pNorm  21 ) 

( ML  Get  eA  22 ) 

( ML  Get  pA  23) 

( ML  Get  eL  24) 

( ML  Get  pL  25) 

( ML  Get  nocc  26 ) 

( ML  Get  evec  27 ) 

( ML  Get  pvec  28 ) 

This  code  is  used  in  section  2. 

16.  ML  Get  ebasis 

( ML  Get  ebasis  16 )  = 
long  ebasis', 

MLGelLonglnleger  (sldlink.  Scebasis ) ; 

This  code  is  used  in  sections  14  and  15. 

17.  ML  Get  pbasis 

( ML  Get  pbasis  17 )  = 
long  pbasis', 

M  LG  et  Long  Integer  (sldlink .  Scpbasis ) ; 

This  code  is  used  in  sections  14  and  15. 

18.  ML  Get  eExp 

( ML  Get  eExp  18 )  = 
int  i  eExp: 

double  eExp  [MAX_BAS  ] ; 
long  eExplen', 

MLCheckFunction(stdlink ,  "List " , SceExplen ); 
for  ( i_eExp  =  0;  i.eExp  <  eExplen',  i_eExp++ )  { 

MLGetReal  (sldlink.  &eExp  [ i_eExp ] ) ; 

} 

This  code  is  used  in  sections  14  and  15. 
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19.  ML  Get  pExp 
(ML  Get  pExp  19)  = 

int  ipExp; 

double  pExp  [MAX_BAS  ] ; 
long  pExplen; 

MLCheckF unction  (stdlink ,  "List " , ScpExplen ); 
for  ( ip)  Exp  =0;  ip) Exp  <  pExplen;  ipExp++ )  { 
MLGetReal  ( stdlink ,  Sep  Exp  [ipExp] ) ; 

} 

This  code  is  used  in  sections  14  and  15. 

20.  ML  Get  eNorm 
(ML  Get  eNorm  20 ) 

i  n  t  i_eNorm ; 

long  eNorm  lew, 

double  eNorm  [MAX_BAS  ] ; 

MLCheckF unction(stdlink ,  "List " , SteNormlen ) ; 
for  ( ijeNorm  =  0;  ixeNorm  <  eNormlew,  LeNorm  h-  j  { 
MLGetReal  ( stdlink ,  &eNorm  [ijeNorm] ) ; 

} 

This  code  is  used  in  sections  14  and  15. 

21.  ML  Get  pNorm 
(MLGetpNorm  21  )  = 

int  i_pNorm\ 

long  pNormlew, 

double  pNorm  [MAX_BAS  ] ; 

MLCheckF  unction  (stdlink ,  "List " ,  &.pNormlen)\ 
for  (ip) Norm  =0;  i-pNorm  <  pNormlew,  i pNorm  ++)  { 
MLGetReal  ( stdlink ,  ScpNorm  [i  pNorm]) ; 

} 

This  code  is  used  in  sections  14  and  15. 

22.  ML  Get  eA 

( ML  Get  eA  22)  = 
int  i_eA,  peA ; 
long  e Alena,  eAlenb\ 
double  M[max_bas][3]; 

MLCheckF unction  (stdlink,  "List " ,  SceAlena ) ; 
for  (LeA  =  0;  ixeA  <  e Alena',  LeA++)  { 

MLCheckF unction  (stdlink,  "List " .  &eAleid)); 
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for  (jjeA  =  0;  j_eA  <  eAlenb;  j_M++)  { 
MLGetReal  ( stdlink ,  &<?A  [/_M]  \j~eA] ) ; 

} 

} 

This  code  is  used  in  sections  14  and  15. 

23.  ML  Get  pA 

( ML  Get  pA  23)  = 
int  i-pA,  j-pA\ 
long  p Alena,  pAlenb; 
double  pA  [MAX_BAS][3]; 

MLCheckFunction(stdlink ,  "List " , &pAlena ); 
for  (i  pA  =0;  i  pA  <  p Alena',  i  pA++ )  { 

MLCheckF unction  [stdlink ,  "List"  .ScpAlenb); 
for  {j_pA  =  0;  JppA  <  pAlenb;  j_pA++ )  { 
MLGetReal  ( stdlink ,  &pA  [LpA]  [/_pA] ) ; 

} 

} 

This  code  is  used  in  sections  14  and  15. 

24.  ML  Get  eL 

( ML  Get  eL  24)  = 
int  i_eL.  j_eL; 
long  eLlena ,  eLlenb', 
int  eL[MAX_BAS][3]; 

MLCheckFunction(stdlink,  "List " , SceLlena ); 
for  (LeL  =  0;  i-eL  <  eLlena',  i_eL++)  { 

MLCheckF unction  (stdlink,  "List " .  SieLlenb)] 
for  (J-eL  =  0;  j  eL  <  eLlenb',  j_eL++)  { 
MLGetlnteger [stdlink,  &eL[i_eL\  [j_eL\); 

} 

} 

This  code  is  used  in  sections  14  and  15. 

25.  ML  Get  pL 

( ML  Get  pL  25)  = 
int  ippL,  j-pL: 
long  pLlena,  pLlenb', 
int  pL[MAX_BAS][3]; 
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MLCheckFunction  ( stdlink , "  L  i  s  t " ,  ScpLlena ) ; 
for  (i-pL  =  0;  LpL  <  pLlena;  i_pL++)  { 

MLCheckFunction  [stdlink ,  "List " .  SipLlenb); 
for  (j  pL  =  0;  j  pL  pLl^nb  9  j  —pL~\  i-  j  ^ 
MLGetlnteger (stdlink,  &pL[i_pL\  \j_pL}); 

} 

} 

This  code  is  used  in  sections  14  and  15. 

26.  ML  Get  nocc 

( ML  Get  nocc  26 )  = 
long  nocc; 

MLCiel  Long  Integer  (stdlink.  Saiocc ) ; 

This  code  is  used  in  sections  14  and  15. 

27.  ML  Get  evec 

( ML  Get  evec  27 )  = 
int  i_evec,  j-evec,  eveclena ,  eveclenb; 
double  evec  [MAX_M0  ]  [MAX_BAS  ] ; 

MLCheckFuncti  on  (stdlink,  "List " ,  Sceveclena); 
for  (i  _< evec  —  0;  i.evec  <  eveclena;  i_evec  ++ )  { 
MLCheckFunction  (stdlink,  "List"  ,&eveclenb); 
for  (/  evec  =  0;  /  evec  <  eveclenb;  j  evec++)  { 
MLGetReal  (stdlink,  Sieve c  [i  evec]  [j  evec] ) ; 

} 

} 

This  code  is  used  in  sections  14  and  15. 


28.  ML  Get  pvec 
( ML  Get  pvec  28 )  = 
int  i  pvec.  j  pvec,  pveclena,  pveclenb; 
double  pvec  [MAX_M0  ]  [MAX_B AS  ] ; 

MLCheckFunction(stdlink,  "List " , Scpveclena ); 
for  (i_pvec  =0;  i_pvec  <  pveclena;  i_pvec++)  { 
MLCheckFunction  (stdlink,  "List"  ,&pveclenb); 
for  (j-pvec  =  0;  j-pvec  <  pveclenb;  j_pvec++ )  { 
MLGetReal  ( stdlink ,  Scpvec  [i-pvec]  [j-pvec] ) ; 

} 

} 

This  code  is  used  in  sections  14  and  15. 
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29.  MathLink  Information.  The  link  between  Mathematica  and  MChem  is  provided  by 
the  code  in  this  section. 

( MathLink  information  29 )  = 

( ML  FourOverlap  30 ) 

( ML  LambdaHF  31 ) 

This  code  is  used  in  section  2. 


30.  ML  FourOverlap. 


( ML  FourOverlap 
■Begin: 

: Function : 

:  Pattern : 


Arguments : 


ArgumentTypes 


ReturnType: 

End: 


30)  = 

FourOverlap 
FourOverlap \ 

\ExpA  Real.  ExpB  Real.  ExpG  Real.  ExpH  Real. 
zxjzjzpNormA  Jdeal,  NormB  Jieal,  NormG  JReal,  NormH  _Real, 

_ ,  | _ ,  | _ ,  | _ ,  |  lAJList,  lB_List,  IGJList,  l El -List, 

f A-List,  rB-List,  rG-List,  rH_List] 

{ExpA ,  ExpB,  ExpG,  ExpH, 

zxxnxrftormA, NormB, NormG, NormH,  IA,IB,  IG,  lH,rA,rB,  rG,  rH} 
{Real,  Real,  Real,  Real, 

\Real,  Real,  Real,  Real, 

\IntegerLisl .  Integer  List .  IntegerList,  IntegerList, 
ftealList,  RealList ,  RealList ,  RealList} 

Real 


This  code  is  used  in  section  29. 


31.  ML  LambdaHF. 

(ML  LambdaHF  31  )  = 

Begin: 

: Function :  LambdaHF 

:  Pattern :  LambdaHF  \ebasis  Integer , 

pbasis -Integer .  noccJnteger ,  eExp -List,  pExp -List, 


: Arguments : 


■.ArgumentTypes:  {Manual} 
:  Return  Type :  Manual 

.End: 


{  ebasis ,  pbasis  ,nocc,  eExp ,  pExp ,  eNorm ,  pNorm , 
xxnxjfA , pA ,  eL , pL ,  evec ,pvec} 


This  code  is  used  in  section  29. 
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Appendix  C.  Modifications  of  GAMESS  and  NEO  for  Positrons 

C.l  NEOPOS.SRC 

The  NEOPOS.SRC  module  contains  all  of  the  completely  new  routines  and  functions 
added  to  NEO  for  modeling  positrons.  It  contains  the  lambdahf  getlambdamp2,  neodftint, 
neofourc,  and  neoforscr  subroutines.  As  with  the  rest  of  GAMESS,  support  for  32-  and 
64-bit  systems  is  incorporated  by  utilyzing  the  functionality  of  the  actvte.f  program,  which 
activates  the  lines  that  begin  with  *32  and  *64,  as  appropriate. 


C.1.1  lambdahf  subroutine.  The  main  subroutine,  lambdahf,  is  given  in  List¬ 
ing  C.l.  It  calls  the  getlambdamp2  subroutine  for  calculation  of  the  NEO-HF  and  NEO- 
MP2  annihilation  rates. 


Listing  C.l:  lambdahf  subroutine. 

C*MODULE  neopos  *DECK  lambdahf 

subroutine  lambdahf 
c 

implicit  double  precision ( a-h , o- z ) 

c 

logical  pack2e 
c 

parameter  (maxneo=40) 
c 

common  /fmcom  /  x(l) 

common  /mp2par/  ospt , tol , method , nwdmp2 , mpprop , nacore , 

*  nbcore,noa,nob,no,nbf,nomit,mocphf,maxitc 
common  /intfil/  nintmx , nhex , ntupl , pack2e , inttyp , igrdtyp 
common  /iofile/  ir , iw , ip , is , ipk , idaf , nav , ioda  (  95 0 ) 

common  / nucmoi/  nuniqn , iuniqn ( maxneo ) , iuniqt ( maxneo ) , nqmnuc , 

*  iqmnuc (maxneo) , iqntyp (maxneo) , numnb , nucst , 

*  nauxnb, iauxnb (maxneo) , numult ,nna,nnb,ntauxb 
common  / neompn/  nemplv 

c 

c  pire2c  is  Krfi 

parameter  (pire2c=5 . 0469693435422d+10) 
c 

noc=noa 

nvir=no-noc 

nnoc=l 

nnorb=numnb 

nnvir=nnorb-nnoc 

c 

write (iw, 9000)  noc, noa, nacore , nvir , no, nbf, nnoc, nnorb , nnvir, 

*  numnb 

call  f 1 shbf ( iw ) 
c 
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call  valfm ( loadfm) 
loxx=loadfm+l 
loix=loxx+nintmx 
lepxx=loix+nintmx 
lepix=lepxx+nintmx 
lcep=lepix+4*nintmx 
lsep=lcep+noc*no*nnorb 
ivec=lsep+noc*no*nnorb 
ivecn=ivec+no*nbf 
ieng=ivecn+nnorb*numnb 
iengn=ieng+no 
last=iengn+nnorb 
needa=last-loadfm-l 
call  getfm(needa) 
c 

xlhf  =  0 . 0d  +  00 
xlep=0 . 0d+00 
c 

call  daread (idaf, ioda , x (ivec) , no*nbf , 15, 0) 
call  daread (idaf, ioda , x (ivecn )  , nnorb* numnb ,  4  4  4  ,  0  ) 
c 

c  dftints  contains  the  four-overlap  integrals 

c 

is  =2  1 

call  seqopn (is, ' dftints ' , ' unknown ' , . false . , ' unformatted' ) 
c 

c  Cl  annihilation  rate  not  implemented,  so  we  set  it  to  an 

c  absurd  number 

c 

if ( nemplv . eq . 2 )  then 

call  daread (idaf, ioda,x  (ieng) , nbf , 17, 0) 
call  daread (idaf, ioda,x  (iengn)  , numnb ,  447  ,  0) 
it  =  67 

call  seqopn ( it , ' elnuint ' , ' unknown false ' unformatted' ) 
call  get  lamb damp 2 (is,it,xlhf,xlep,x(ivec) ,x (ivecn) , x ( iend ) , 
*  x(iengn)  ,x(lepxx)  , x ( lepix )  ,nintmx,x(lcep)  , x  ( lsep )  ) 

else 

xlfci  =  9999 . 9d+99 

end  if 

c 

call  retfm(needa) 
c 

xlhf=pire2c*xlhf 
xtauhf=l . 0d+00/xlhf 
c 

if ( nemplv . eq . 2 )  then 
c 

c  remember  that  the  correction  to  the  annihilation  rate  is 

c  negative  therefore  the  -1  multiplier 

c 

xlep=-l . 0d+00*pire2c*xlep 
xlmp2=xlhf+xlep 
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xt  aump2  =1 . 0d  +  00/xlmp2 

write  ( iw , 9010)  xlhf  *1 . 0  d-0  9 , xtauhf*l . 0d  +  09, xlep*l . 0d-09 , 
xlmp2  *1 . 0d-09, xtaump2  *1 . 0d  +  09 

else 

xlfci=pire2c*xlfci 
xtaufci=l . 0d+00/xlfci 

write (iw, 9020)  xlhf*1.0d-09,xtauhf*1.0d+09, 
xlf ci *  1 .0d-09, xtaufci*l .0d  +  09 

end  if 
return 


9000  format (/lx,39('-') , 3x, 23 ( 1 h- ) / 


k 

lx, 

'  neo 

positron -electron 

annihilation 

rate  '  , 

k 

3x , 

'adapted  by  paul  adamson ' / 

k 

lx. 

39  ( '  - 

' )  , 3x, 23  (lh-) / 

k 

lx, 

' -electron  - '  / 

k 

lx, 

'  noc 

=  ' , i4  ,  '  noa  =' , 

i5 , '  nacore  =  ' , 

,  i5  ,  '  nvir  =' , 15/ 

k 

lx, 

'  no 

=  ' , i4  ,  '  nbf  =', 

i  5  / 

k 

lx, 

' -positron  - ' / 

k 

lx, 

'  nnoc 

=  ' , i5  ,  '  nnorb  =  ' , 

i5  ,  '  nnvir  =  '  , 

,  i5 , '  numnb  =  ' , i5 ) 

9010 

format  (/lx, 

l-h 

annihilation  rate 

( 1 / nsec )  = ' , 

f 14  .  8/ 

k 

lx, 

nr 

l-h 

positron  lifetime 

( nsec  )  =' , 

f 14  .  8/ 

k 

lx, 

'  mp2 

ann  rate  corr 

( 1 / nsec )  = ' , 

f 14  .  8/ 

k 

lx, 

'  mp2 

annihilation  rate 

( 1 / nsec )  = ' , 

f 14  .  8/ 

k 

lx, 

'  mp2 

positron  lifetime 

( nsec  )  =' , 

f 14 . 8/) 

9020 

format  (/lx, 

'  hf 

annihilation  rate 

( 1 / nsec )  = ' , 

f 14  .  8/ 

k 

lx, 

'  hf 

positron  lifetime 

( nsec  )  =' , 

f 14  .  8/ 

k 

lx, 

'  fci 

annihilation  rate 

( 1 / nsec )  = ' , 

f 14  .  8/ 

k 

lx, 

'  fci 

positron  lifetime 

( nsec  )  =' , 

f 14 . 8/) 

end 


C.1.2  getlambdampl  subroutine.  The  getlambdampl  subroutine,  given  in  List¬ 
ing  C.2,  calculates  the  NEO-HF  and  NEO-MP2  annihilation  rates. 

Listing  C.2:  getlambdamp2  subroutine. 

C*MODULE  neopos  *DECK  getlambdamp2 

subroutine  getlambdamp2  ( is  ,  it , xlhf , xlep , ce , cn , eige , eign , xx , ix , 

*  nintmx , cep , sep ) 
c 

implicit  double  precision ( a-h , o- z ) 

c 

parameter  (maxneo=40) 
c 

common  /iofile/  ir , iw , ip , i jk , ipk , idaf , nav , ioda  (  95 0 ) 
common  /mp2par/  ospt , tol , method , nwdmp2 , mpprop , nacore , 

*  nbcore,noa,nob,no,nbf,nomit,mocphf,maxitc 
common  / nucmoi/  nuniqn , iuniqn ( maxneo ) , iuniqt ( maxneo ) , nqmnuc , 

*  iqmnuc (maxneo) , iqntyp (maxneo) , numnb , nucst , 

*  nauxnb, iauxnb (maxneo) , numult ,nna,nnb,ntauxb 
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common  /pcklab/  labsiz 
c 

dimension  xx (nintmx) , ix (nintmx*4) 
dimension  cep ( noa *  no  * numnb ) 
dimension  sep ( noa *  no  * numnb ) 

dimension  ce(no*nbf),cn( numnb  *  numnb )  , eige (no)  , eign ( numnb ) 
c 

noc=noa 

nnorb=numnb 

c 

do  i=l , noc*no*nnorb 
cep ( i) =0 . 0d+00 
sep ( i) =0 . 0d+00 

end  do 

c 

c  get  the  EPA  matrix  and  form  the  MP2  coefficients 

c  EPA  integrals  stored  in  (pp \ee)  order 

c 

call  seqrew  (  it ) 

110  call  pread (it , xx, ix, nxx , nintmx) 
if(nxx.eq.O)  go  to  180 
nint=iabs (nxx) 
c 

do  150  m=l , nint 


vail  =  xx (m) 
npack  =  m 
c 

c  - two  bytes  per  label - 

c 

if ( labsiz . ge . 2 )  then 
*32  label  =  ix  ( 2 * npack -1 ) 

*32  ipack=ishft (label , -16) 

*32  jpack  =  iand  ( label ,  65535) 

*32  label  =  ix  ( 2 * npack ) 

*32  kpack=ishft ( label , -16) 

*32  lpack  =  iand  ( label ,  65535) 

*64  label=ix ( npack ) 

*64  ipack=i shf t ( label , -4 8 ) 

*64  jpack  =  iand(ishft(label,-32)  ,65535) 

*64  kpack=iand ( ishft ( label , -16) ,65535) 

*64  lpack  =  iand  ( label ,  65535) 

else 
c 

c  - one  byte  per  label - 

c 

*32  label  =  ix  ( npack ) 

*32  ipack=i shf t ( label , -2 4 ) 

*32  jpack=iand(ishft(label,-16) ,255) 

*32  kpack  =  iand(ishft(label,-8)  ,255) 

*32  lpack  =  iand  ( label ,  255) 

*64  if  (mod ( npack , 2 ) .eq.0)  then 

*64  label  =  ix  (  npack / 2 ) 
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*64 

ipack  =  iand  (ishft (label , 

-24) ,255) 

*64 

jpack=iand(ishft (label, 

-16) ,255) 

*64 

kpack  =  iand  (ishft  (label, 

-8) ,255) 

*64 

lpack  =  iand  (label ,  255) 

*64 

else 

*64 

label  =  ix  (  (npack/2) +1) 

*64 

ipack=ishft (label , -56) 

*64 

jpack  =  iand  (ishft  (label , 

-48) ,255) 

*64 

kpack  =  iand  (ishft (label , 

-40) ,255) 

*64 

lpack  =  iand(  ishft  (label, 

-32) ,255) 

*64 

end  if 

end  if 

jip  =  ipack 
jjP  =  jpack 
ji  =  kpack 
jj  =  Ipack 
jap  =  l 

do  140  j a  =  1 ,  n o c 

do  130  jr=noc+l,no 
do  120  jrp=2,nnorb 

denom  =  eige ( j a ) +eign ( jap ) -eige ( j r ) -eign ( j rp ) 
icep=(ja-l) *no*nnorb+(jr-l) *nnorb+jrp 
ctmpa=cep ( icep ) 

if  (  (  ji  .  eq  .  j j )  . and .  ( jip . eq . j jp)  )  then 
ctmp=  vail 

*  ce ( ( j  a  -1 ) *  nbf  +  ji  ) 

*  ce ( ( j  r  -1 ) *  nbf  +  j  j  ) 

*  cn ( ( j ap -1 ) * numnb + j ip ) 

*  cn (( j rp -1 )* numnb + j jp ) 

else  if  (ji.eq.jj)  then 

ctmp=  vail 

* ( ce ( ( j  a  -1 ) *  nbf  +  ji  ) 

*  ce ( ( j  r  -1 ) *  nbf  +  j  j  )) 

* (cn ( ( jap-1) *numnb+jip) 

*  cn (( j rp -1 )* numnb + j jp ) 

+  cn (( j ap -1 )* numnb  +  j jp  ) 

*  cn (( j rp -1 )* numnb + j ip ) ) 
else  if  (jip.eq.jjp)  then 

ctmp=  vail 

* (cn  (  ( jap-1)  *numnb  +  jip) 

*  cn (( j rp -1 )* numnb  +  j jp  )  ) 


■k 

* ( ce  (  ( j  a  -1 ) *  nbf 

+  ji  ) 

■k 

ce ( ( jr  -1) *nbf 

+  jj  ) 

~k 

+  ce ( ( ja  -1) *nbf 

+  jj  ) 

* 

ce  (  (  jr  -1) *nbf 

+  ji  )  ) 

else 

ctmp=  vail 

■k 

* ( ce  (  ( j  a  -1 ) *  nbf 

+  ji  ) 

■k 

ce ( ( jr  -1) *nbf 

+  jj  ) 

■k 

* (cn  (  ( jap-1)  *numnb  +  jip) 

■k 

cn ( ( j  rp -1 ) *  numnb +  j  jp ) 

■k 

+  cn (( j ap -1 )* numnb  +  j jp  ) 

■k 

cn ( ( j  rp -1 ) *  numnb +  jip)) 

■k 

+  ce  (  ( ja  -1) *nbf 

-I — 1 

-1 — > 

+ 

■k 

ce  (  (  jr  -1) *nbf 

+  ji  ) 

■k 

* (cn ( ( jap-1) *numnb+jip) 

■k 

cn  (  (  j  rp  -1 )  *  numnb +  j  jp ) 

■k 

+  cn (( j ap -1 )* numnb + j jp ) 

■k 

cn ( ( j  rp  -1 ) *  numnb +  jip) ) ) 

end  if 
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cep(icep)  =  ctmpa  +  ctmp 

120  continue 

130  continue 

140  continue 

150  continue 

if(nxx.gt.O)  go  to  110 

180  continue 

c 

c  compute  the  mp2  correction  to  the  annihilation  rate 

c  ovrlpints  are  stored  in  (ee\ pp)  order 

c 

xlhf  =  0 . 0d  +  00 
call  seqrew  (  is ) 

200  call  pread (is, xx, ix, nxx, nintmx) 

if(nxx.eq.O)  return 

nint=iabs (nxx) 
do  250  m=l , nint 


vail  =  xx (m) 
npack  =  m 

if ( labsiz . ge  .  2 )  then 
c 

c  - two  bytes  per  label - 

c 

*32  label  =  ix  ( 2 * npack -1 ) 

*32  ipack=ishft (label , -16) 

*32  jpack  =  iand  ( label ,  65535) 

*32  label  =  ix  ( 2 * npack ) 

*32  kpack=ishft ( label , -16) 

*32  lpack  =  iand  ( label ,  65535) 

*64  label=ix ( npack ) 

*64  ipack=i shf t ( label , -4 8 ) 

*64  jpack  =  iand ( ishft ( label , -32)  ,  65535) 

*64  kpack=iand ( ishft ( label , -16) ,65535) 

*64  lpack  =  iand  ( label ,  65535) 

else 
c 

c  - one  byte  per  label - 

c 

*32  label  =  ix  ( npack ) 

*32  ipack=i shf t ( label , -2 4 ) 

*32  jpack=iand(ishft(label,-16) ,255) 

*32  kpack  =  iand(ishft(label,-8)  ,255) 

*32  lpack  =  iand  ( label ,  255) 

*64  if (mod ( npack , 2 )  . eq  .  0 )  then 

*64  label  =  ix  (  npack /2 ) 

*64  ipack  =  iand (ishft (label, -24)  ,255) 

*64  jpack=iand(ishft (label, -16), 255) 

*64  kpack=iand(ishft(label,-8),255) 

*64  lpack  =  iand  ( label ,  255) 

*64  else 

*64  label = ix (( npack / 2 )+ 1 ) 

*64  ipack=ishft ( label , -56) 
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*64 

*64 

*64 

*64 


c 

c 

c 

~k 

~k 

c 

c 

c 

■k 

■k 

■k 

c 

c 

c 

■k 

■k 

■k 

c 

c 

c 


c 


jpack=iand(ishft (label, -48) ,255) 
kpack  =  iand(ishft  (label, -40)  ,  255) 
lpack=iand(ishft (label, -32) ,255) 
end  if 
end  if 
ji  =  ipack 
jj  =  jpack 
jip  =  kpack 
jjp  =  Ipack 
jap  =  l 

do  240  j a  =  1 , n o c 
do  230  jr=l,no 
do  220  jrp=l,nnorb 

i  =  j  and  i!  =  /  so  only  need  (ii\ i'i') 


if  (  (  ji . eq  .  j j )  . and  .  ( jip  .  eq 
stmp=  vail 

*  ce((ja  -1 ) * nbf  +  j i  ) 

*  cn (( jap -1 )* numnbl j ip ) 

i  =  j  so  only  need  ( ii\i'f ) 

else  if  (ji.eq.jj)  then 
stmp=  vail 

* ( ce  (  ( ja  -1 ) *  nbf  +  j i  ) 

* (cn  (  ( jap -1 )  *  numnbl jip) 

+  cn  (  (  jap -1 )  * numnb+ j jp ) 

i  =  j'  so  only  need  (ij\i'i') 

else  if  (jip.eq.jjp)  then 
stmp=  vail 

* (cn  (  ( jap -1 )  *  numnbl jip) 

* ( ce  (  ( ja  -1 ) *  nbf  +  j i  ) 

+  ce  (  ( ja  -1 ) *  nbf  +  j  j  ) 

need  all  (ij\i'f), 

else 

stmp=  vail 

* ( ce  (  ( ja  -1 ) *  nbf  +  j i  ) 

* (cn  (  ( jap -1 )  *  numnbl jip) 

+  cn  (  (  jap -1 )  * numnbl j jp ) 

+  ce  (  ( ja  -1 ) *  nbf  +  j  j  ) 

* (cn  (  ( jap -1 )  *  numnbl jip) 

+  cn ( ( jap -1 ) * numnbl j jp ) 
end  if 

isep= ( ja-1) *no*nnorb+ ( j  r  — 1 ) 
stmpb  =  sep  ( isep ) 
sep(isep)=  stmp  +  stmpb 


.jjp))  then 

*  ce((jr  -l)*nbf  +ji  ) 

*  cn (( j rp -1 )* numnbl j ip ) 

and  (ii\j'i') 


*  ce ( ( j  r  -1 ) *  nbf  +  ji  )) 

*  cn (( j rp -1 )* numnbl j jp ) 

*  cn (( j rp -1 )* numnbl j ip ) ) 

and  (ji\i'i') 

*  cn (( j rp -1 )* numnbl j ip ) ) 

*  ce ( ( j  r  -1 ) *  nbf  ijj  ) 

*  ce ( ( j  r  -1 ) *  nbf  1 ji  )) 

(ji\i'j')r  and  {ji\j'i') 

*  ce ( ( j  r  -1 ) *  nbf  ijj  ) 

*  cn (( j rp -1 )* numnbl j jp ) 

*  cn (( j rp -1 )* numnbl j ip ) ) 

*  ce ( ( j  r  -1 ) *  nbf  iji  ) 

*  cn (( j rp -1 )* numnbl j jp ) 

*  cn (( j rp -1 )* numnbl j ip )) ) 


*  nnorbl j  rp 
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c 


we  can  compute  xlhf  here  or  later 


c 
c 

if(tja.eq.jr)  .and.  (jrp.eq.l)  )  then 
xlhf=xlhf+  2.0d+00*stmp 

end  if 

220  continue 

230  continue 

240  continue 

c 

250  continue 

c 

if(nxx.gt.O)  go  to  200 
xlhf =0 . 0d+00 
do  j  a  =  1 , n  o  a 

isep=(ja-l) *no*nnorb  + ( ja -1 ) *nnorb+l 
xlhf  =  xlhf+  2 . 0 d  +  0 0  * sep ( isep ) 
end  do 
xlep=0 . 0d+00 
xeep=0 . 0d+00 
j  ap  =  l 

do  340  j  a  =  1 , n  o  c 

do  330  jr=noc+l,no 
do  320  jrp=2,nnorb 

denom  =  eige ( ja) feign ( jap) -eige  ( jr) -eign  ( jrp) 
isep=(ja-l) *no*nnorbt(jr-l) *nnorbfjrp 
xlep  =  xlep  f  2 . 0 dt 0 0  * sep ( i sep ) *  cep ( i sep ) / denom 
xeep  =  xeep  t  2 . 0 dt 0 0  *  cep ( i sep ) *  cep ( i sep ) / denom 

320  continue 

330  continue 
340  continue 

write  (  iw ,  90 0 0 )  xeep 
c 

return 

9000  format ( /lx recalculate  e(2ep)  as  a  check:  f 1 4 . 8 / ) 

end 


C.1.3  neodftint  subroutine.  The  neodftint  subroutine,  given  in  Listing  C.3,  cal¬ 
culates  the  four-center  integrals  for  use  in  the  annihilation  rate  codes. 

Listing  C.3:  neodftint  subroutine. 

c*MODULE  neopos  *DECK  neodftint 

subroutine  neodftint ( idftovrlp) 

implicit  double  precision ( a-h , o-z ) 

c 

logical  dirscf , fdif f , pack2e , some , goparr , dskwrk , maswrk 


c 


parameter  (mxatm=2000) 


c 

c 


c 


c 

c 

c 

c 


common  /dftpar/  dfttyp (20 ) , exena , exenb , exenc , idft34 , nauxfun , 
nauxshl 

common  /fmcom  /  x(l) 

common  /infoa  /  nat ,  ich  ,  mul , num , nqmt , ne , na , nb , 

zan (mxatm) , c (3, mxatm) , ian (mxatm) 
common  /intfil/  nintmx , nhex , ntupl , pack2e , inttyp , igrdtyp 
common  /iofile/  ir , iw , ip , is , ipk , idaf , nav , ioda  (  95 0 ) 
common  /neoshl/  ngauss , ngause , ngausn , ntshel , nnucsh 
common  /optscf/  dirscf,fdiff 

common  /output/  npr int , itol , icut , normf , normp , nopk 
common  /par  /  me  ,  master , nproc , ibtyp , iptim , goparr , dskwrk , 
maswrk 

common  /runopt/  runtyp , exetyp , nevals , nglevl , nhlevl 

data  check  /8hcheck  / 

some  =  maswrk  .and.  nprint.ne.-5 
if  (  some)  write ( iw , 90 0 0 ) 

11  =  num 

12  =  ( num* ( num+1 ) ) /2 

if ( idftovr lp . ne  .  4 )  then 

write (iw,*)  ' idftovrlp  confused  in  neodftint' 

call  abrt 
end  if 

do  four-center  integrals  for  neopos 
adapted  from  grid- free  dft  method 

iffidftovrlp  .eq.  4)  then 
if ( . not .  dirscf)  then 
call  valfm ( loadfm) 
iscrn  =  loadfm  +  1 

itmp  =  iscrn  +  ( nt she  1  * nt shel  +  nt shel ) /2 

iss  =  itmp  +  15*15*15*15 

iloc  =  iss  +  nintmx 

last  =  iloc  +  nintmx 

need  =  last  -  loadfm  -  1 

call  getfm(need) 

if ( exetyp . ne . check )  then 

call  neoforscr ( some ,x(iscrn) , x ( itmp ) ) 
call  neofourc  (  some ,x(iss)  , x  (  iloc )  , x ( itmp )  , nintmx) 
end  if 

call  ret f m ( need ) 

else 

call  val fm ( loadfm ) 
iscrn=loadfm+l 

itmp=iscrn+(ntshel*ntshel+ntshel)/2 
last=itmp +15*15*15*15 
need  =  last  -  loadfm  -  1 
call  getfm(need) 

if ( exetyp . ne . check )  call  neoforscr ( some , x ( iscrn ), x ( itmp ) ) 


146 


call  retfm(need) 

end  if 
end  if 

if(maswrk)  write ( iw , 9050 ) 
return 

9000  format (/10x, 45 ( 1 h - ) /10x, 

*  ' electron -positron  overlap  integral  evaluat ion ' / 1  Ox , 4 5 ( 1 h- )  ) 

9030  format (lx, ' time  to  evaluate  gradient  correction  integrals  =  ' ,  f 12  .  .  . 

.1) 

9050  format (lx,' .  end  of  electron -positron  overlap  integrals... 


end 


C.1.4  neofourc  subroutine.  The  neofourc  subroutine,  given  in  Listing  C.4,  is 
used  by  neodftint  for  calculating  the  four-center  integrals. 


Listing  C.4:  neofourc  subroutine. 


C*MODULE  neopos  *DECK  neofourc 

subroutine  neofourc ( some , s , ix , temps , nintmx ) 

implicit  double  precision ( a-h , o- z ) 

c 

logical  samecen , svdskw , some , dskwrk , maswrk , goparr 


c 

c 


parameter  (mxsh=5000,  mxgtot=20000 ,  mxatm=2000) 


common  /iofile/ 
common  / i n  f  o  a  / 

■k 

common  /neoshl/ 
common  /nshel  / 

~k 

■k 


common  /output/ 
common  /par  / 

common  /pcklab/ 
common  /symtry/ 

common  /restar/ 


ir,  iw,  ip,  ijko  ,  ijkt  ,  idaf,  nav,  ioda  (950) 

nat ,  ich  ,  mul  ,  num  ,  nqmt  ,  ne  ,  na  ,  nb  , 

zan (mxatm) , c (3, mxatm) , ian (mxatm) 

ngauss , ngause , ngausn , ntshel , nnucsh 

ex (mxgtot) , cs (mxgtot) , cp (mxgtot) , cd (mxgtot) , 

cf (mxgtot) , eg (mxgtot) , ch (mxgtot) , ci (mxgtot) , 

kstart (mxsh) , katom (mxsh) , ktype (mxsh) , kng (mxsh) , 

kloc (mxsh) , kmin (mxsh) , kmax (mxsh) , nshell 

nprint  ,  itol  ,  icut  ,  normf  ,  normp  ,  nopk 

me  ,  master  ,  nproc  ,  ibtyp  ,  iptim  ,  goparr  ,  dskwrk  , 

maswrk 

labsiz 

mapshl(mxsh,48) ,mapctr( mxatm, 48) , 
t  (432)  ,  invt  (48)  ,  nt 

timlim, irest, nrec, intloc, ist, jst , kst , 1st 


dimension  s(nintmx)  , ix ( * )  , temps  (15*15*15*15) 
dimension  dfac  (0:21)  ,  ldat (35)  , mdat  (35)  , ndat  (35)  , 

conta  (35)  , contb  (35)  , contc  (35)  , conte  (35)  , 

a2  1  (0:4*4*4*4)  , idummy  (0:4)  ,mi  (48)  ,mj  (48)  ,  mk  (48), 

xxxx  (  -1  :  4  ,  -1  :  4  ,  -1 :  4  ,  -1 :  4)  , 

yyyy (-1:4, -1:4, -1:4, -1:4) , 

zzzz  ( -1  :  4  ,  -1 : 4 , -1 : 4 , -1 : 4) 
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c 

parameter  (pi =3 . 141592653589793238462643 d+00, 

*  rlnlO=2 . 30258d+00) 
c 

c  x, y,z  exponents  of  cartesian  s ,  px,  py ,  pz ,  dxx,  .  .  . 

c 

data  ldat / 0 , 1,0, 0,2, 0,0, 1,1, 0,3, 0,0, 2, 2, 1,0, 1,0, 1,4, 0,0, 3, 3, 

*  1,0, 1,0, 2, 2, 0,2, 1,1/ 

data  mdat / 0 , 0,1, 0,0, 2, 0,1, 0,1, 0,3, 0,1, 0,2, 2, 0,1, 1,0, 4,  0,1,0, 

*  3, 3, 0,1, 2, 0,2, 1,2,1/ 

data  ndat / 0 , 0,0, 1,0, 0,2, 0,1, 1,0, 0,3, 0,1, 0,1, 2, 2, 1,0, 0,4, 0,1, 

*  0,1, 3, 3, 0,2, 2, 1,1, 2/ 
c 

c  calculates  ivalueW 

c  warning  dfac(0)  =  —  1 !!, dfac(\)  =  0!!, dfac(2)  =  1 !!  etc. 

c 

data  dfac/1.0d+00,1.0d+00,1.0d+00,2.0d+00,3.0d+00,8.0d+00, 

*  15.0d+00,48.0d+00,105.0d+00,384.0d+00,945.0d+00, 

*  3840. 0d+00, 10395. 0d+00, 46080. 0d+00, 135135.0 d+00, 

*  645120. 0d+00, 2027025. 0d+00, 10321920. 0d+00, 

*  34459425. 0d+00, 185794560. 0d+00, 

*  654729075. 0d+00, 3715891200. 0d+00/ 
c 

c  helps  deal  with  1  shells 

c  (shell  that  ends  on  1  might  start  with  0) 

c 

data  i dummy / 0 , 0 , 2 , 3 , 4 / 
c 

c  this  routine  calculates  the  one  electron  four-overlap  integral 

c  for  cartesian  gaussians.  (up  to  g-shells) 

c 

if  ( (normf  .eq.  1  .or.  normp  .eq.  1) .and.  maswrk)  then 

write (iw,*)'  sorry  but  the  four  center  one  electron  ovelap' 
write (iw,*)'  integrals  used  for  dft  do  not  support  the' 
write (iw,*)'  no  normalization  options' 
call  abrt 
end  if 
c 

c  -  initialization  for  parallel  work  - 

c 

ipcount  =  me  -  1 
svdskw  =  dskwrk 
dskwrk  =  . true  . 
c 

if  (  some)  write ( iw , 90 0 0 ) 
c 

call  tsecnd(timO) 
c 

cutoff  =  1 . 0 d  + 0 0 / ( 1 0 . 0 d  +  0 0  *  * icut ) 

tol  =  itol *  r lnl 0 

iwhere=0 

call  vclr ( xxxx , 1 , 6  *  6  *  6  *  6 ) 
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call  vclr ( yyyy , 1 , 6  *  6  *  6  *  6 ) 
call  vclr ( z z zz , 1 , 6  *  6  *  6  *  6 ) 
xxxx (0,0, 0,0) =1 .0d+00 
yyyy (0,0, 0,0) =1 .0d+00 
zzzz (0,0,0,0)=1.0d+00 
c 

nschwz  =0 
nrec=0 
nint  s  =  0 
maxao=255 
labsiz  =  1 

if ( num . gt . maxao )  labsiz  =  2 

call  seqopn (21, ' dftints ' , ' unknown ' , . false . , ' unformatted' ) 
call  seqrew  (21) 
c 

c  loop  over  shells  a  b  c  and  e  for  ( ab\ce ) 

c 

intshel=nshell+l 
iashl =1 
ibshl =1 
icshl=intshel 
ieshl=intshel 
do  100  iashl=l,nshell 
c 

c  - check  cpu  time - 

c 

call  tsecnd (tim) 

if ( t im . ge . t iml im )  then 

write  (iw,*)  'no  time  left  in  -fourc-' 

return 


end 

if 

c 

c 

try 

to 

eliminate  a  shell 

c 

do 

1020 

it  =  1 ,  nt 

id  =  mapshl  (  iashl , it ) 
if  (id  . gt .  iashl)  go  to  100 
mi  (  it )  =  id 
1020  continue 

c 

c  position  of  the  shell's  atom 

c 

iaatom  =  katom  (iashl) 
ax=c ( 1 , iaatom ) 
ay=c (2 , iaatom) 
az=c (3 , iaatom) 
c 

c  info  about  the  primatives 

c 

istarta=kstart (iashl) 
ienda  =  istartatkng (iashl)  -1 
c 
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c  info  about  the  subshells 

c 

iamax=kmax ( iashl ) 
iamin=kmin (iashl) 
loca  =kloc ( iashl ) -iamin 
c 

c  find  the  highest  spin  value  in  this  shell 

c 

katype=ktype (iashl) -1 
jatype=l+ iamax - iamin 
c 

c  b  shell 

c 

do  101  ibshl=l,nshell 
do  200  it  =  1 , nt 
id  =  mi  (  it ) 
jd  =  mapshl ( ibshl , it ) 
m j ( it )  =  jd 

if  (id  . ge .  jd)  go  to  1060 
nd  =  id 
id  =  jd 
jd  =  nd 

1060  if  ( id- iashl )  200,1080,101 

1080  if  (jd-ibshl)  200,200,101 

200  continue 

c 

ibatom  =  katom  (ibshl) 

bx=c ( 1 , ibatom ) 

by=c (2 , ibatom) 

bz=c ( 3 , ibatom ) 

istartb=kstart (ibshl) 

iendb=istartb+kng (ibshl) -1 

ibmax=kmax (ibshl) 

ibmin=kmin (ibshl) 

locb  =  kloc ( ibshl ) -ibmin 

kbtype=ktype (ibshl) -1 

jbtype=l+ibmax-ibmin 

abrr= (ax-bx) * (ax-bx) + (ay -by) * (ay- by) + (az-bz) * (az-bz) 
c 

c  c  shell 

c 


do  102  icshl=intshel , ntshel 
do  34  0  it  =  1 ,  nt 
id  =  mi  (  it ) 
jd  =  m j  (  it ) 
kd  =  mapshl ( icshl , it ) 
mk  (  it )  =  kd 

if  (id  . ge .  jd)  go  to  260 
nd  =  id 
id  =  jd 
jd  =  nd 
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260 


continue 

if  ( id-iashl )  340  ,  300  ,  102 
300  if  (  jd-ibshl )  340  ,  320  ,  102 

320  if  (kd-icshl )  340,340,102 

340  continue 

icatom  =  katom  (icshl) 

cx  =  c ( 1 , icatom ) 

cy=c (2 , icatom) 

cz=c ( 3 , icatom ) 

istartc=kstart (icshl) 

iendc=istartc+kng (icshl) -1 

icmax=kmax (icshl) 

icmin=kmin (icshl) 

locc  =  kloc  (  icshl ) -icmin 

kctype=ktype (icshl) -1 

jctype=l+icmax-icmin 

acrr= (ax-cx) * (ax-cx) + (ay-cy) * (ay-cy) + (az-cz) * (az-cz) 
bcrr= (bx-cx) * (bx-cx) + (by-cy) * (by-cy) + (bz-cz) * (bz-cz) 
c 

c  e  shell 

c 

do  103  ieshl=intshel , ntshel 
n4  =  0 

do  540  it  =  1 , nt 
id  =  mi  (  it ) 
jd  =  m j  (  it ) 
kd  =  mk  (  it ) 

Id  =  mapshl ( ieshl , it ) 
if  (id  . ge .  jd)  go  to  400 
nd  =  id 
id  =  jd 
jd  =  nd 

400  continue 


if 

(kd  . ge .  Id)  go  to  440 

nd 

=  kd 

kd 

=  Id 

Id 

=  nd 

go 

to  400 

440 

if 

( id-iashl ) 

540,460,103 

460 

if 

(  jd-ibshl ) 

540,480,103 

480 

if 

(kd-icshl ) 

540  ,  500  ,  103 

500 

if 

( ld-ieshl ) 

540  ,  520  ,  103 

520 

n4 

=  n4  +1 

540 

continue 

q4  =  nt 
q4  =  q4 / n4 


c  - go  parallel! - 

c 

if  (goparr)  then 

ipcount  =  ipcount  +  1 

if  ( mod ( ipcount , nproc ). ne . 0 )  go  to  103 
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end  if 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


ieatom  =  katom  (ieshl) 

exx=c (1 , ieatora) 

ey  =  c (2 , ieatom) 

ez  =  c (3, ieatom) 

istarte=kstart (ieshl) 

iende=istarte+kng (ieshl) -1 

iemax=kmax (ieshl) 

iemin=kmin (ieshl) 

loce  =  kloc  (  ieshl ) -iemin 

ketype=ktype (ieshl) -1 

jetype=l+iemax-iemin 


aerr= (ax-exx) * (ax-exx) + 

( ay-ey 

)  * 

(ay-ey) + 

( az -ez ) * 

( az  -e 

berr= (bx-exx) * (bx-exx) + 

(by-ey 

)  * 

(by-ey) + 

(bz-ez ) * 

( bz  -e 

cerr= (cx-exx) * (cx-exx) + 

( cy-ey 

)  * 

(cy-ey) + 

(  cz -ez ) * 

( cz  -e 

if  (( aerr . gt . cutoff ). or 

. (berr 

. gt . cutoff ) 

.or. 

( cerr . gt . cutoff ) .or. 

(  acr r  . 

gt 

.  cutoff )  , 

,  or  . 

(berr . gt . cutoff ) .or. 
samecen= . false . 

( abr r  . 

gt 

.  cutoff )  ) 

then 

else 

samecen= . true . 

end  if 

end  of  shells 

disable  schwartz  screening 
pre-screen  the  integrals 

if (smax  (kashl+ibshl )  *smax (kcshl+ieshl )  . le .  1.0d-18 

*  smax  (kashl+icshl )  *smax (kbshl+ieshl )  .le.  1.0d-18 

*  smax (kashl+ieshl)  *smax (kbshl+ieshl)  .le.  1.0d-18) 
nschwz=nsch wz+1 

go  to  103 
end  if 

check  to  see  if  they  are  all  on  the  same  center 


if  (iaatom  . 

eg.  ibatom  . 

.  and. 

iaatom  .eq. 

ieatom  . 

.  and. 

iaatom  . 

eg.  ieatom) 

then 

if  (samecen)  then 

if (  mod 

(katype+kbtype+ketype+ketype , 

,2)  . eq . 1 

.  and 

■k 

.  not  . 

( iamin . eq  .  1 

.  and . 

iamax . eq  .  4 ) 

.  and  . 

k 

.  not  . 

( ibmin . eq  .  1 

.  and . 

ibmax . eq  .  4 ) 

.  and . 

■k 

.  not  . 

( iemin . eq  .  1 

.  and . 

icmax . eq  .  4 ) 

.  and . 

■k 

.  not  . 

( iemin . eq  .  1 

.  and . 

iemax . eq  .  4 ) 

)  go  to 

103 

no  1  shells  to  confuse  things,  and  total 
momentum  is  odd,  thus  integrals  are  zero 

samecen= . true . 


) 

) 

) 


or. 

or. 

then 
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c 


else 

c  samecen= . false . 

c 

end  if 


c 

c 

c 

c 

c 

c 


913 

912 

911 

910 


c 

c 

c 


loop  over  guassian  primatives  while  reading 
in  exponents  and  contractions 

do  something  special  for  (ssss)  case 

if ( katype . eq . 0  .and.  kbtype.eq.O  .and.  kctype.eq.O  .and. 
ketype.eq.O)  then 
temps  ( 1 ) =0 . 0  d  +  0  0 
if  (samecen)  then 

do  910  iaprm=istarta , ienda 
al=ex ( iaprm) 
sconta  =  cs  (iaprm) 
do  911  ibprm=istartb , iendb 
a2=ex ( ibprm) +al 
scontb=cs (ibprm) *sconta 
do  912  icprm=istartc , iendc 
a3=ex ( icprm) +a2 
scontc=cs (icprm) *scontb 
do  913  ieprm=istarte , iende 
a5=ex ( ieprm) +a3 
sconte=cs (ieprm) *scontc 
temps (1) =temps (1) +sconte/ (a5*sqrt (a5) ) 
continue 
continue 
continue 
continue 

temps  ( 1 ) =t emps  (1) *pi*sqrt  (pi) 

else 

do  810  iaprm=istarta , ienda 
al =ex (iaprm ) 
sconta=cs (iaprm) 
do  811  ibprm=istartb , iendb 
a2  =  ex ( ibprm ) 

if ( abr r * al * a2 / ( al +a2 )  . gt .  tol)  go  to  811 

scontb=cs (ibprm) *sconta 

get  info  about  a,b,and  p 

a6=al +a2 

px=( (al*ax  +  a2*bx) / a  6 ) 
py=( (al*ay  +  a2*by) / a  6 ) 
pz=(  (al*az  +  a2*bz) / a 6 ) 

abk=- ( (al*a2/a6) * ( (ax-bx) * (ax-bx) + (ay -by) * 

(ay -by) +(az-bz) * (az-bz) ) ) 
do  812  icprm=istartc , iendc 
a3=ex ( icprm) 

if ( acr r * al * a3 / ( al +a3 )  . gt .  tol  .or. 
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*  bcr r * a2 * a3 / ( a2 +a3 )  . gt .  tol)  go  to  812 

scontc=cs (icprm) *scontb 

do  813  ieprm=istarte , iende 
a5  =ex ( ieprm ) 

if ( aer r * al * a5 / ( al + a5 )  . gt .  tol  .or. 

*  ber r * a2 * a5 / ( a2 +a5 )  . gt .  tol  .or. 

*  cer r * a3 * a5 / ( a3 +a5 )  . gt .  tol)  go  to  813 

sconte=cs (ieprm) *scontc 
a4=al+a2+a3+a5 

a4 inv  =  l . 0  d  +  0  0 / a4 
a7=a3+a5 

a7inv=l . 0d+00/a7 
qx=(a3*cx+a5*exx) *a7inv 
qy=(a3*cy+a5*ey) *a7inv 
qz=(a3*cz+a5*ez) *a7inv 
c 

c  calculate 

c 

temps ( 1 ) = temps (1) tsconte* ( ( (pi*a4inv) * 

*  sqrt(pi*a4inv))*exp(abk-((a3*a5*a7inv)* 

*  ( ( cx -exx ) * ( cx -exx ) + ( cy-ey ) * 

*  ( cy -ey ) + ( cz -ez ) * ( cz -ez ) ) ) 

*  - ( (a6*a7*a4inv) * 

*  ( (px-qx) * (px-qx) + (py-qy ) * 

*  (py-qy) + (pz-qz) * (pz-qz) ))) ) 

813  continue 

812  continue 

811  continue 

810  continue 

end  if 
c 

c  end  special  (ssss)  case 

c 

else 

call  vclr (temps ,1, jatype*jbtype*jctype*jetype) 
do  110  iaprm=istarta , ienda 
al=ex ( iaprm) 

call  f orcnt ( iaprm , iamax , conta ) 
do  111  ibprm=istartb , iendb 
a2  =ex ( ibprm ) 

call  f orcnt ( ibprm , ibmax , contb ) 
c 

c  get  info  about  a,b,and  p 

c 

if  ( . not .  samecen)  then 
a6=al +a2 

px=( (al*ax+a2*bx) /a6) 
py=( (al*ay+a2*by) /a6) 
pz=( (al*az+a2*bz) /a6) 
abk=(al*a2/a6) *abrr 
if  (abk  . gt .  tol)  go  to  111 
end  if 
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do  112  icprm=istartc , iendc 
a3=ex ( icprm) 

call  forcnt ( icprm , icmax , contc ) 

if ( acr r * al * a3 / ( al +a3 )  . gt .  tol  .or. 

*  bcr  r  *  a2  *  a3  /  (  a2  +  a3  )  .  gt .  tol)  go  to  112 

do  113  ieprm=istarte , iende 
a5=ex ( ieprm) 

call  forcnt ( ieprm , iemax , conte ) 
c 

c  calculate  final  gaussian  center  and  other  things 
c  p=a  and  b,  q=c  and  e,  d= final  center 
c 

a4=al+a2+a3+a5 

a4inv=l . 0d+00/a4 

if ( . not .  samecen)  then 


if (aerr*al*a5/ ( al +a5 ) 

.  gt  . 

tol  . or  . 

~k 

berr*a2*a5/ (a2+a5) 

.  gt  . 

tol  . or  . 

■k 

cerr*a3*a5/ (a3+a5) 

.  gt  . 

tol)  go  to  113 

a7=a3+a5 

a7inv=l . 0d+00/a7 

al0=0.5d+00*a4inv 

qx=(a3*cx+a5*exx) *  a7 inv 

qy=(a3*cy+a5*ey) *a7inv 

qz=(a3*cz+a5*ez) *a7inv 

dx= (al*ax+a2*bx+a3*cx+a5*exx) *  a4 inv 

dy= (al*ay+a2*by+a3*cy+a5*ey) *a4inv 

dz=(al*az+a2*bz+a3*cz+a5*ez)*a4inv 

dax=dx-ax 

day=dy-ay 

daz=dz-az 

dbx=dx-bx 

dby=dy-by 

dbz  =dz -bz 

dcx=dx-cx 

dcy=dy-cy 

dcz=dz-cz 

dex=dx-exx 

dey=dy-ey 

dez=dz-ez 

pqrr= (px-qx) * (px-qx) + (py-qy ) * (py-qy ) + 

*  ( pz -qz ) * ( pz -qz ) 
c 

c  calculate  kabc 

c 

abck= ( (pi*a4inv) *sqrt (pi*a4inv) ) *exp ( -abk 

*  -  (  (  a3  *  a5  *  a7  inv  )  *  cer  r  ) 

*  - ( ( a6 * a7 * a4 inv ) *pqrr ) ) 
c 

c  use  recursion  to  generate  higher  angular  momentum  xxxx,etc 

c 

c  recursion  based  on  j 

c 
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do  2000  j=l,ketype 

xxxx  ( j , 0 , 0 , 0 ) =  dex*xxxx ( j -1 , 0  ,0 

,0 

) +al0* 

~k 

(  j -1 ) * xxxx  (  j -2 , 0  ,0 

,0 

)  ) 

y YYY ( j , 0 , 0 , 0 ) =  dey *yyyy ( j -1 , 0  ,0 

,0 

) +al0* 

■k 

( j-i) *yyyy (j-2,0  ,0 

,0 

)  ) 

z z z z ( j , 0 , 0 , 0 ) =  dez * z z z z  (  j -1 , 0  ,0 

,0 

) +al0  * 

■k 

(j-l)*zzzz  (j-2,0  ,0 

,0 

)  ) 

2000 

continue 

c  recursion 

based  on  k 

do  2010  k=l,kctype 

do  2010  j=0,ketype 

xxxx  (  j , k , 0 , 0 ) =  dcx*xxxx(j  ,k-l,0 

,0 

) +al0* 

■k 

j  *xxxx (  j-1 , k-l , 0 

,0 

)  + 

■k 

(k-l)*xxxx(j  ,k-2,0 

,0 

)  ) 

YYYY  ( j <  k, 0 , 0) =  dcy  *  yyyy ( j  ,k-l,0 

,0 

) +al0* 

■k 

j  *  yyy y  ( j-i, k-i, o 

,0 

)  + 

■k 

(k-l ) *yyyy  ( j  , k-2 , 0 

,0 

)  ) 

z z z z  (  j , k , 0 , 0 ) =  dcz*zzzz(j  ,k-l,0 

,0 

) +al0  * 

■k 

j*zzzz  (j-1, k-l, 0 

,0 

)  + 

■k 

(k-l)*zzzz(j  , k-2 , 0 

,0 

)  ) 

2010 

continue 

c  recursion 

based  on  1 

do  2020  l=l,kbtype 

do  2020  k=0,kctype 

do  2020  j=0,ketype 

xxxx  (  j , k , 1 , 0 ) =  dbx*xxxx(j  ,k  ,1-1 

,0 

) +al0* 

■k 

j  *  xxxx ( j -1 , k  ,1-1 

,0 

)  + 

■k 

k*xxxx ( j  , k-l , 1-1 

,0 

)  + 

■k 

(l-l)*xxxx(j  ,k  ,1-2 

,0 

)  ) 

YYYY ( j ' k, 1 , 0 ) =  dby  *  yyyy ( j  ,k  ,1-1 

,0 

) +al0  * 

■k 

j*yyyy(j-l,k  ,1-1 

,0 

)  + 

■k 

k *  yyyy ( j  , k-l, 1-1 

,0 

)  + 

■k 

(1-1) *yyyy ( j  , k  , 1-2 

,0 

)  ) 

zzzz(j,k,l,0)=  dbz*zzzz(j  , k  ,1-1 

,0 

) +al0* 

■k 

j*zzzz(j-l,k  ,1-1 

,0 

)  + 

■k 

k*zzzz(j  , k-l, 1-1 

,0 

)  + 

■k 

( 1 -1 ) *  z  z  z  z ( j  , k  ,1-2 

,0 

)  ) 

2020 

continue 

c  recursion 

based  on  i 

do  2030  i=l,katype 

do  2030  l=0,kbtype 

do  2030  k=0,kctype 

do  2030  j=0,ketype 

xxxx  (  j , k , 1 , i ) =  dax*xxxx(j  ,k  ,1 

,  i 

-1) +  al 0  * 

■k 

(  i -1 ) *  xxxx  (  j  , k  ,1 

,  i 

-2)  + 

■k 

j  *  xxxx ( j -1 , k  ,1 

,  i 

-1)  + 

■k 

k  *  xxxx  (  j  , k -1 ,  1 

,  i 

-1)  + 

■k 

1  *  xxxx  (  j  , k  ,1-1 

,  i 

-1)  ) 

yyyy ( j , k, 1, i) =  day*yyyy(j  ,k  ,1 

,  i 

-1) +al0  * 

■k 

( i -1 ) *  yyyy  ( j  ,k  ,1 

,  i 

-2)  + 

■k 

j * yyyy  (j-i, k  -1 

,  i 

-1)  + 

■k 

k *  yyyy ( j  ,k-l,l 

,  i 

-1)  + 
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*  l* yyyy  (j  ,  k  , l-l , i-l) ) 

z z z z ( j , k , 1 , i ) =  daz*zzzz(j  ,k  ,1  ,i-l)+alO*( 

*  (i-l)*zzzz(j  ,k  ,1  ,i-2)  + 

*  j*zzzz(j-l,k  ,1  , i — 1 )  + 

*  k*zzzz(j  ,k-l,l  ,i-l)  + 

*  l*zzzz(j  ,k  ,1-1, i-l)) 

2030  continue 

c 

c  loop  over  subshells  to  get  values  of  the  integrals 

c 

imove  =0 

do  120  iasub=iamin , iamax 

c  the  x  coordinate  in  s (num, num, num, num) 

iaposit=loca+iasub 
ll=ldat ( iasub ) 
ml=mdat ( iasub ) 
nl=ndat ( iasub ) 
contra=abck * conta (iasub) 
c 

do  121  ibsub=ibmin , ibmax 

c  the  y  coordinate  in  s (num, num,  num,  num) 

ibposit=locb+ibsub 

iffibposit  .  gt  .  iaposit)  go  to  120 
12=ldat ( ibsub ) 
m2  =mdat ( ibsub ) 
n2  =  ndat  (  ibsub ) 
contrb  =  contra*contb  (ibsub) 
c 

do  122  icsub=icmin , icmax 

c  the  z  coordinate  in  s (num, num,  num, num) 

icposit=locc+icsub 
13=ldat ( icsub) 
m3=mdat ( icsub ) 
n3=ndat ( icsub ) 
cont rc  =  cont rb * cont c  (icsub) 
c 

do  123  iesub=iemin , iemax 

c  the  e  coordinate  in  s (num, num,  num, num) 

ieposit=loce+iesub 

if(ieposit  . gt  .  icposit)  go  to  122 
15  =  ldat  ( iesub) 
m5=mdat ( iesub ) 
n5=ndat ( iesub ) 
contre  =  contrc*conte  (iesub) 
imove=imove+l 
c 

temps (imove)  =  temps (imove) 

*  icontre *xxxx ( 15 , 13 , 12 , 11 ) 

*  *yyyy(m5,m3,m2,ml)*zzzz(n5,n3,n2,nl) 
c 

123  continue 

122  continue 
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121  continue 

120  continue 

call  f lshbf  (  iw) 
else 

c 

c  special  same  center  case 

c 

imove  =0 

radial=(pi*a4inv) *sqrt (pi*a4inv) 
a20  =  sqrt  (0.5d  +  00*a4inv) 

iduml = i dummy ( kat ype ) + i dummy ( kb type ) + i dummy ( kctype ) + 
*  idummy ( ketype ) 

idum2  =  katype  +  kbtype  +  kctype  + ketype 
do  i=iduml , idum2 
a2 1 (i) =a2  0  *  *  i 
end  do 

do  220  iasub=iamin , iamax 
c 

c  the  x  coordinate  in  s (num,  num,  num, num) 

c 

iaposit= local iasub 
ll  =  ldat  ( iasub ) 
ml=mdat  ( iasub ) 
nl  =  ndat  ( iasub ) 
contra=conta (iasub) *radial 
do  221  ibsub=ibmin , ibmax 
c 

c  the  y  coordinate  in  s (num,  num,  num, num) 

c 

ibposit=locb+ibsub 

if(ibposit  .  gt  .  iaposit)  go  to  220 
12  =  ll  +  ldat  (ibsub) 
m2=ml+mdat (ibsub) 
n2=nl+ndat (ibsub) 
contrb=contra*contb (ibsub) 
do  222  icsub=icmin , icmax 
c 

c  the  z  coordinate  in  s (num,  num, num, num) 

c 

icposit=locc+icsub 

c  if  (icposit  .gt.  ibposit)  go  to  221 

13=12+ldat (icsub) 
m3=m2+mdat  (icsub) 
n3  =  n2  +  ndat  (icsub) 
cont rc  =  cont rb * cont c  (icsub) 
do  223  iesub=iemin , iemax 
c 

c  the  e  coordinate  in  s (num, num, num, num) 

c 

ieposit=loce+iesub 

if(ieposit  . gt  .  icposit)  go  to  222 
imove=imove+l 
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15  =  13  +  ldat  (iesub) 
if(mod(15,2)  .eq.  1)  go  to  223 
m5=m3+mdat  (iesub) 
if(mod(m5,2)  .eq.  1)  go  to  223 
n5  =  n3  +  ndat  (iesub) 
if(mod(n5,2)  .eq.  1)  go  to  223 
contre  =  contrc*conte  (iesub) 
c 

c  the  if  mod (n5, 2)  gets  rid  of  odd  exponents 

c 

xyzi=dfac (15) *dfac (m5) *dfac (n5) *contre*a21 (15+n5+m5) 
temps (imove) =temps (imove) +xyzi 

223  continue 

222  continue 

221  continue 

220  continue 

c 

c  end  special  same  center  case 

c 

end  if 

c 

113  continue 

112  continue 

111  continue 
110  continue 

c 

c  end  the  ssss  if 

c 

end  if 

c 

c  loop  over  temporary  matrix 

c 

imove  =0 

do  421  iaposit=iamin+loca , iamax+loca 
c 

c  min  lets  us  skip  (5611)  since  we  do  (6511) 

c 

do  422  ibposit=ibmin+locb , min ( ibmax+locb , iaposit ) 
do  423  icposit=icmin+locc , icmax+locc 
do  424  ieposit=iemin+loce , min ( iemax+loce , icposit ) 
imove=imove+l 
c 

c  postscreen  the  integrals 

c 

if ( abs ( temps ( imove ) )  . gt .  cutoff)  then 

iwhere=iwhere+l 
npack  =  iwhere 
ipack  =  iaposit 
jpack  =  ibposit 
kpack  =  icposit 
Ipack  =  ieposit 
if  (labsiz  .eq.  2)  then 
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*32  labell=ishft ( ipack , 16) + jpack 

*32  label2 = ishf t ( kpack , 1 6 ) + Ipack 

*32  ix ( 2  * npack -1 ) = label 1 

*32  ix ( 2  * npack ) = label  2 

*64  label=ishft (ipack, 48) + i shf t (jpack, 32) + ishf t (kpack, 16) +lpack 

*64  ix ( npack ) = label 

else  if  (labsiz  . eq.  1)  then 

*32  label=ishft (ipack, 24)+ishft(jpack,16)+ishft(kpack,8)+lpack 

*32  ix ( npack ) = label 

*64  if  (  mod (npack, 2) . eq.O)  then 

*64  label  =  ishft (ipack, 24)+ishft(jpack,16)+ishft(  kpack, 8)+lpack 

*64  ix (npack/2) =ix  (npack/2) + label 

*64  else 

*64  label=ishft(ipack,56)+ishft(jpack,48)+ 

*64  *  i shf t  (  kpack , 4 0 )+ i  shf t  ( Ipack , 32 ) 

*64  ix (( npack /2 ) +1 ) =label 

*64  end  if 

end  if 

c 

c  take  into  account  skipped  intergrals  and  store 

c 

s ( i where ) = temps ( imove ) *q4 
ithisone=0 

if  ( ithisone . eq  .  1 )  then 

write ( iw ,*)' i  j  k  1  ovrlpint ', ipack , jpack , kpack , 

*  Ipack , s ( iwhere ) 

end  if 

c 

c  write  out  buffer  of  integrals  if  its  full 

c 

if (iwhere  .eq.  nintmx)  then 
call  pwrit (21, s , ix , nintmx, nintmx) 
iwhere=0 
nrec=nrec+l 
nints=nints+nintmx 
end  if 

end  if 

424  continue 

423  continue 

422  continue 

421  continue 

c 

103  continue 
102  continue 
101  continue 
100  continue 

c 

call  f 1 shbf  (  iw ) 
c 

c  - end  of  shell  loops - 
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c 

c  write  final  partial  buffer  load  of  integrals  to  disk 

c 

nrec=nrec+l 
nints=nints+iwhere 
iwhere=-i where 

call  pwrit (21 , s,ix,i where, nintmx) 
c 

if (goparr)  then 

call  ddi_gsumi  (1055  , nschwz  ,  1) 
call  ddi_gsumi  ( 1 0 5 6  , nint s ,  1 ) 
call  ddi_gsumi  ( 1 0 5 7  , nrecs ,  1 ) 

end  if 

if(some)  write ( iw , 90 1 0 )  nint s , nrec , 2 1 
if  (  some)  write ( iw , 90 2 0 )  nschwz 
call  tsecnd (tim) 
tim  =  tim-timO 
if  (  some)  write ( iw , 9030 )  tim 
dskwrk  =  svdskw 
return 
c 

9000  format ( lx ,' comput ing  four  center  overlap  integrals  (ijkl)') 
9010  format ( lx ,' total  number  of  nonzero  overlap  integrals=' , 120/ 

*  lx,il0,'  integral  records  stored  on  disk  file' , i3 , ' . ' ) 
9020  format ( lx ,' s chwarz  inequality  test  skipped ', i 1 0 , 

*  '  integral  blocks  .  ' ) 

9030  format ( lx ,' t ime  to  evaluate  (ijkl)  overlap  integrals  =',fl2.2) 

end 


C.1.5  neoforscr  subroutine.  The  neoforscr  subroutine,  given  in  Listing  C.5,  is 
used  by  neodftint  for  calculating  the  four-overlap  integrals. 

Listing  C.5:  neoforscr  subroutine. 

c*MODULE  neopos  *DECK  neoforscr 

subroutine  neoforscr ( some , s , temps ) 
c 

implicit  double  precision ( ah , o- z ) 

c 

parameter  (mxsh=5000,  mxgtot=20000 ,  mxatm=2000,  mxao=8192) 
c 

logical  goparr , dskwrk , maswrk , some 
c 

common  /par  /  me  ,  master , nproc , ibtyp , iptim , goparr , dskwrk , 

*  maswrk 

common  /infoa  /  nat ,  ich , mul , num , nqmt , ne , na , nb , 

*  zan (mxatm) , c (3, mxatm) , ian (mxatm) 
common  /iofile/  ir , iw , ip , i jko , i jkt , idaf , nav , ioda ( 95 0 ) 
common  /neoshl/  ngauss , ngause , ngausn , ntshel , nnucsh 

common  /nshel  /  ex (mxgtot ) , cs (mxgtot ) , cp (mxgtot ) , cd (mxgtot ) , 
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c 


c 

c 

c 


c 

c 

c 

c 


c 

c 


c 

c 

c 


c 

c 

c 


cf (mxgtot ) , eg (mxgtot ) , eh (mxgtot ) , ci (mxgtot ) , 
kstart (mxsh) , katom (mxsh) , ktype (mxsh) , kng (mxsh) , 
kloc (mxsh) , kmin (mxsh) , kmax (mxsh) , nshell 
common  /output/  npr int , itol , icut , normf , normp , nopk 
common  /ijpair/  index2(mxao) 


dimension  s  (  (ntshel*ntshel+ntshel)  / 2)  , temps  (15*15*15*15) 
dimension  ldat (35) ,mdat (35) ,ndat (35) , 

conta  (35)  ,  contb  (35)  , contc  (35)  ,  conte  (35)  , 
xxxx  (  -1  :  4  ,  -1  :  4  ,  -1 :  4  ,  -1 :  4)  , 
yyyy (-1:4, -1:4, -1:4, -1:4) , 
zzzz  ( -1  :  4  ,  -1 : 4 , -1 : 4 , -1 : 4) 


parameter  (pi=3.141592653589793238462643d+00) 
parameter  ( r lnl 0 =2 . 3 02 5 8 d+0 0 ) 


x,y,z  exponents  of  cartesian  s,px,py,pz,  dxx,  .  .  . 


data  ldat /0 , 1,0, 0,2, 0,0, 1,1, 0,3, 0,0, 2, 2, 1,0, 1,0, 1,4, 0,0, 3, 3, 

*  1,0, 1,0, 2, 2, 0,2, 1,1/ 

data  mdat / 0 , 0,1, 0,0, 2, 0,1, 0,1, 0,3, 0,1, 0,2, 2, 0,1, 1,0,  4,  0,1,0, 

*  3, 3, 0,1, 2, 0,2, 1,2,1/ 

data  ndat / 0 , 0,0, 1,0, 0,2, 0,1, 1,0, 0,3, 0,1, 0,1, 2, 2, 1,0, 0,4, 0,1, 

*  0,1, 3, 3, 0,2, 2, 1,1, 2/ 


tol=itol *rlnl0 


-  intialize  parallel  - 

ipcount  =  me  -  1 

if  (goparr)  call  vclr ( s , 1 , nt shel *  (  nt shel +  1 )  /2 ) 

call  tsecnd(timO) 

call  vclr ( xxxx , 1 , 6  *  6  *  6  *  6 ) 
call  vclr ( yyyy , 1 , 6  *  6  *  6  *  6 ) 
call  vclr ( z z zz , 1 , 6  *  6  *  6  *  6 ) 
xxxx  (0,0, 0,0) =1 . 0d  +  0  0 

yyyy  (0 , o , o , 0) =1 . od+oo 

zzzz  (0,0, 0,0) =1 . 0d  +  0  0 

loop  over  shells  a  b  for  <aabb> 

intshel=nshell+l 

do  100  iashl=intshel , ntshel 

kashl=index2 (iashl) 

position  of  the  shell's  atom 


iaatom=katom (iashl) 
ax=c (1 , iaatom) 
ay=c (2 , iaatom) 
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az  =  c (3 , iaatom) 


c 

c  info  about  the  primatives 

c 

istarta  =  kstart  (iashl) 
ienda=istarta+kng (iashl) -1 
c 

c  info  about  the  subshells 

c 

iamax=kmax (iashl) 
iamin=kmin (iashl) 
loca  =kloc ( iashl ) -iamin 
c 

c  find  the  highest  spin  value  in  this  shell 

c 

katype=ktype (iashl) -1 
jatype=l+iamax- iamin 
c 

c  b  shell 

c 

do  101  ibshl=intshel , iashl 
c 

c  - go  parallel! - 

c 

if  (goparr)  then 

ipcount  =  ipcount  +  1 

if  ( mod ( ipcount , nproc ). ne . 0 )  go  to  101 

end  if 

ibatom=katom ( ibshl ) 

bx=c (1 , ibatom) 

by=c (2 , ibatom) 

bz=c (3 , ibatom) 

istartb  =  kstart  (ibshl) 

iendb=istartb+kng (ibshl) -1 

ibmax=kmax (ibshl) 

ibmin=kmin (ibshl) 

locb  =  kloc ( ibshl ) -ibmin 

kbtype=ktype (ibshl) -1 

jbtype=l+ibmax- ibmin 

abrr= (ax-bx) * (ax-bx)  +  (ay-by) * (ay-by)  +  (az-bz ) *  (az-bz) 
c 

c  end  of  shells 

c 

c  loop  over  guassian  primatives  while  reading 

c  in  exponents  and  contractions 

c 

call  vclr (temps , 1, jatype*jbtype*jatype*jbtype) 
do  110  iaprm=istarta , ienda 
al =ex ( iaprm ) 

call  f orcnt ( iaprm , iamax , conta ) 
do  111  icprm=istarta , ienda 
a2=ex ( icprm) 
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call  forcnt ( icprm , iamax , contc ) 
a6=al +a2 

do  112  ibprm=istartb , iendb 
a3=ex ( ibprm) 

call  f orcnt ( ibprm , ibmax , contb ) 

if ( abr r * al * a3 / ( al +a3 )  . gt .  tol  .or. 

*  abrr  *  a2  *  a3  /  (  a2 +  a3  )  .  gt .  tol)  go  to  112 
do  113  ieprm=istartb , iendb 

a5=ex ( ieprm) 

call  forcnt ( ieprm , ibmax , conte ) 

a4=al+a2+a3+a5 

a4 inv  =  l . 0  d  +  0  0 / a4 

if ( abrr * al * a5 / ( al +a5 )  . gt .  tol  .or. 

*  abrr * a2 * a5 / ( a2 +a5 )  . gt .  tol)  go  to  113 
a7=a3+a5 

alO  =0 . 5d  +  00/a4 

dx=(al*ax+a2*ax+a3*bx+a5*bx)*a4inv 
dy=(al*ay+a2*ay+a3*by+a5*by)*a4inv 
dz=(al*az+a2*az+a3*bz+a5*bz)*a4inv 
dax=dx - ax 
day=dy-ay 
daz=dz -az 
dbx=dx -bx 
dby =dy -by 
dbz  =dz -bz 
c 

c  calculate  kabc 

c 

abck=( (pi*a4inv) *sqrt (pi*a4inv) ) *exp (-abrr*a6*a7*a4inv) 
c 

c  generate  higher  angular  momentum  xxxx,etc 

c 


c 

recursion  based  on  j 

c 

do  2000  j=l,katype 

xxxx  ( 0  ,  j ,  0 

0)=  dax*xxxx (0 , j -1 , 0  ,0 

) +al0  * 

~k 

( j-1) *xxxx (0 , j-2 , 0  ,0 

) ) 

yyyy  (0 , j ,  o 

0) =  day *yyyy (0 , j -1 , 0  ,0 

) +al0  * 

~k 

( j -1 ) * yyyy (0 , j -2 , 0  ,0 

)  ) 

zzzz  (0 , j ,  0 

0)=  daz * z z z z ( 0 , j -1 , 0  ,0 

) +al0  * 

■k 

( j -1 ) *  z  z  zz  ( 0 , j -2 , 0  ,0 

)  ) 

2000 

continue 

c 

c 

recursion  based  on  k 

c 

do  2010  k=l,kbtype 

do  2010  j=0,katype 

xxxx  (0  ,  j  ,  k 

0)=  dbx*xxxx(0,j  ,k-l,0 

) +al0  * 

■k 

j  *  xxxx (0, j - 1 , k - 1 , 0 

)  + 

■k 

(k-1) *xxxx (0 , j  ,k-2,0 

)  ) 

yyyy  (0, j , k 

0) =  dby  *  yyyy (0 , j  , k-1 , 0 

) +al0  * 

■k 

j  *  yyyy (0 , j-i, k-i , o 

)  + 
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( k  —  1 ) *yyyy (0 , j  , k-2 , 0  ) ) 

zzzz(0,j,k,0)  =  dbz*zzzz(0,j  , k-1,0  ) +  a 1 0  * ( 

j * zzzz (0 , j-1 , k-1 , 0  )  + 

( k -1 ) * z z z z  ( 0  ,  j  ,k-2,0  )) 


2010 

continue 

c 

c 

recursion 

based  on  1 

c 

do  2020  1 

=1 , kbtype 

do  2020 

k=0 , kbtype 

do  2020  j=0,katype 


xxxx ( 0 , j , k , 1 ) =  dbx*xxxx(0, 

j 

,  k 

, 1-1) +al0  * 

■k 

j  *  xxxx  ( 0 

j-1 ,  k 

,1-1)  + 

~k 

k  *  xxxx  ( 0 

j 

/k-1 

,1-1)  + 

■k 

( 1 -1 ) *  xxxx  ( 0 

j 

/  k 

,1-2)  ) 

yyyy (0, j , k, 1) =  dby*yyyy(0, 

j 

/  k 

, 1-1) +al0  * 

■k 

j  *  yyy y  (0, 

j-1 ,  k 

,1-1)  + 

■k 

k  *  yyyy  ( o , 

j 

/k-1 

,1-1)  + 

■k 

(1-1) *yyyy  (0, 

j 

/  k 

,1-2)  ) 

zzzz(0,j,k,l)=  dbz*zzzz(0, 

j 

/  k 

, 1-1) +al0  * 

k 

j  *  z  z  z  z  ( 0 

j-1 ,  k 

,1-1)  + 

■k 

k  *  z  z  z  z  ( 0 

j 

,  k-1 

,1-1)  + 

■k 

(1-1) *zzzz (0, 

j 

/  k 

,1-2)  ) 

2020  continue 


c 

c  recursion  based  on  i 

c 

do  2030  l=0,kbtype 
do  2030  k=0,kbtype 
do  2030  j=0,katype 
do  2030  i=l,katype 


XXXX 

1 — 1 

-i — > 

■H 

=  dax  *  xxxx  ( i  -1 

j 

,  k 

,  1 

) +al0* 

■k 

( i -1 ) *  xxxx ( i -2 

j 

,  k 

,  1 

)  + 

■k 

j  *  xxxx ( i -1 

j-1 

,  k 

,  1 

)  + 

■k 

k  *  xxxx ( i -1 

j 

,  k-1 ,  1 

)  + 

■k 

1  *  xxxx ( i -1 

j 

,  k 

,1- 

1)  ) 

yyyy 

■ — 1 

-i — > 

■H 

=  day  *  yyyy  ( i — 1 , 

j 

,  k 

,  1 

) +al0* 

■k 

(i-i) *yyyy  (i-2, 

j 

,  k 

,  1 

)  + 

■k 

j  *  yyyy  U-i, 

j-1 

,  k 

,  1 

)  + 

■k 

k  *  yyyy  ( i — 1 , 

j 

i — 1 

t-H 

1 

)  + 

■k 

i *  yyyy  (i-i, 

j 

,  k 

,1- 

1)  ) 

zzzz 

i — 1 

-i — > 

■H 

=  daz  *  z  z  z  z  ( i  -1 , 

j 

,  k 

,  1 

) +al0* 

■k 

( i  —  1 )  *zzzz  (i-2, 

j 

,  k 

,  1 

)  + 

■k 

j*zzzz ( i — 1 , 

j-1 

,  k 

,  1 

)  + 

■k 

k*zzzz ( i -1 

j 

,  k-1 ,  1 

)  + 

*  l*zzzz(i-l,j  ,k  ,1-1)) 

2030  continue 


c 

c 

c 

c 


loop  over  subshells  to  get  values  of  the  integrals 
imove  =0 
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do  120  iasub=iamin , iamax 

c  the  x  coordinate  in  s (num, num, num, num) 

iaposit=loca+iasub 
ll=ldat ( iasub ) 
ml=mdat ( iasub ) 
nl=ndat ( iasub) 

contra  =  conta (iasub) *contc  (iasub) 
c 

do  121  ibsub=ibmin , ibmax 

c  the  y  coordinate  in  s (num,  num,  num,  num) 

ibposit=locb+ibsub 

iffibposit  . gt  .  iaposit)  go  to  120 
12  =  ldat  ( ibsub) 
m2  =mdat ( ibsub ) 
n2  =  ndat ( ibsub ) 

contre  =  contra*contb (ibsub) *conte  (ibsub) 
c 

imove=imove+l 

temps (imove)  =  temps (imove) 

*  +abck*contre*xxxx(ll,ll,12,12)* 

*  yyyy(ml,ml,m2,m2)*zzzz(nl,nl,n2,n2) 


c 


121 

continue 

120 

continue 

c 

c 

113 

continue 

112 

continue 

111 

continue 

no 

continue 

c 

c 

loop  over  temporary  matrix 

c 

dum=0 . 0d+00 
imove  =  0 

do  421  iaposit=iamin+loca , iamax+loca 


do  422  ibposit=ibmin+locb , min ( ibmax+locb , iaposit ) 
imove=imove+l 

if  ( temps  ( imove )  . gt .  dum)  dum=temps ( imove ) 

422  continue 

421  continue 

s (kashl+ibshl) =dum 
c 

c  end  shell  loops 

c 

101  continue 
100  continue 

c 

c  -  sum  up  partial  contributions  if  parallel  - 

c 

if (goparr) call  ddi_gsumf (1039, s, nt  she  1  * (ntshel+1) 12) 
c 
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C.2  Changes  to  Preexisting  GAMESS  and  NEO  Source  Files 

All  of  the  modifications  to  each  of  the  preexisting  GAMESS  and  NEO  source  files 
that  were  necessary  to  accommodate  positrons  are  listed,  including  a  brief  description  of 
each  change.  In  order  to  save  space,  only  the  differences  between  the  modified  source  code 
and  the  7Sep06R4  release  of  GAMESS  are  listed.  The  boxed  text  in  each  section  below  is 
the  output  from  diff,  a  standard  program  on  any  Unix  system  that  prints  the  differences 
between  two  text  files. 

For  example,  if  the  file,  examplel .  txt,  contains 

line  1  in  both  is  "Line  1" 
line  2  here  is  "Line  2" 
line  3  in  both  is  "Line  3" 

and  a  file,  example2  .  txt,  contains 

line  1  in  both  is  "Line  1" 
line  2a  here  is  "Line  2a" 
line  2b  here  is  "Line  2b" 
line  3  in  both  is  "Line  3" 
line  4  here  is  "Line  4" 

the  output  of  the  command 

diff  examplel.txt  example2.txt 

will  be 


167 


2c2, 3 

<  line  2  here  is  "Line  2" 

>  line  2a  here  is  "Line  2a" 

>  line  2b  here  is  "Line  2b" 
3a5 

>  line  4  here  is  "Line  4" 


To  make  file  examplel .  txt  match  file  example2  .txt,  one  would  need  to  make  two  dif¬ 
ferent  modifications  to  examplel.txt.  First,  one  would  need  to  change  (c)  line  2  of 
examplel  .txt  to  match  lines  2  and  3  (2,3)  of  example2  .txt.  Second,  one  would  need  to 
add  (a)  line  5  of  example2  .  txt  to  examplel  .txt  after  line  3. 


C.2.1  GAMESS.SRC.  The  small  change  to  the  GAMESS .  SRC  file  is  to  allow  the 
user  to  request  the  calculation  of  the  electron-positron  annihilation  rate  using  the  LAMB- 
DAHF  routine  in  NEOPOS .  SRC.  This  requires  the  POSNEO  and  POSPRP  logical  variables.  The 
IUNIQA  array  and  MAXNEO  parameter  must  come  along  also  since  they  are  part  of  the  NUCPOS 

common  block. 

1528cl528 

<  LOGICAL  GOPARR, DSKWRK, MASWRK 

>  LOGICAL  GOPARR, DSKWRK, MASWRK, POSNEO, POSPRP 
1530al531 

>  PARAMETER  (MAXNEO=40) 

1541al543 

>  COMMON  /NUCPOS/  IUNIQA (MAXNEO) , POSNEO, POSPRP 
1670al673 

>  IF  (POSNEO. AND. POSPRP)  CALL  LAMBDAHF 
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C.2.2  INPUTA.SRC.  Other  than  the  new  module  in  NEOPOS.SRC,  the  modifi¬ 
cations  to  the  INPUTA.SRC  file  are  the  most  significant  of  those  required  for  addition  of 
positrons  to  GAMESS.  These  changes  were  necessary  to  allow  positron  basis  function  cen¬ 
ters  to  be  located  on  classical  nuclei,  something  that  was  not  necessary  (or  desired)  when 
modeling  protons  with  NEO.  When  positronic  basis  function  centers  are  generated  with  the 
symmetry  operators,  a  check  is  made  to  determine  if  the  generated  center  already  exists. 
This  required  the  introduction  of  two  logical  variables,  QMCHKA  and  QMCHKB,  since  we  want 
to  check  whether  the  generated  center  and  the  existing  center  are  quantum  or  classical. 


278c278 

< 

LOGICAL  ELEMENT, SPRKLE, DSTNCE 

> 

LOGICAL  ELEMENT, SPRKLE, DSTNCE, QMCHKA, QMCHKB, POSNEO, POSPRP 

284a285 

> 

PARAMETER  (MAXNEO=40) 

333a335 

> 

COMMON  /NUCPOS/  IUNIQA (MAXNEO) , POSNEO, POSPRP 

1726al729, 1731 

> 

QMCHKA  =  .FALSE. 

> 

QMCHKB  =  .FALSE. 

>  c 

1731al737, 1747 

>  c 

>  c 

IF  THIS  IS  A  NEORUN  W/POSITRONS, 

>  c 

NEED  TO  SET  FLAGS  (QMCHKA/B)  FOR  QUANTUM  NUCLEI 

>  c 

> 

IF ( (NEORUN. EQ.l)  .AND. POSNEO)  THEN 

> 

QMCHKA= . FALSE . 

> 

DO  J  =  l,maxneo 

> 

IF (  IUNIQA (J)  .EQ.  NAT  )  QMCHKA= . TRUE . 

> 

end  do 

> 

END  IF 

>  c 

1732al749, 1754 

> 

IF ( (NEORUN. EQ.l) .AND. POSNEO)  THEN 

> 

QMCHKB= . FALSE . 

> 

DO  J  =  l,maxneo 

> 

IF (  IAT  .EQ.  IUNIQA (J)  )  QMCHKB= . TRUE . 

> 

end  do 

> 

END  IF 

(continued  on  next  page) 
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1734cl756, 1766 

< 

IF (TEST  .LE.  1.0D-12)  GO  TO  820 

>  c 

>  c 

FOR  NEO  RUN  WITH  POSITRONS,  SPECIAL  CHECK  REQUIRED,  FOR 

IT 

IS 

>  c 

OK  TO  HAVE  THE  POSITRON  BASIS  SET  CENTERED  ON  AN  ACTUAL 

ATOM. 

>  c 

> 

IF ( (NEORUN. EQ.l) .AND.POSNEO)  THEN 

> 

IF  ( ( QMCHKA . EQV . QMCHKB ) .AND. (TEST . LE . 1 . 0D-12 ) ) 

THEN 

> 

GO  TO  820 

> 

END  IF 

> 

ELSE 

> 

IF (TEST  .LE.  1.0D-12)  GO  TO  820 

> 

END  IF 

1813al846, 1854 

>  c 

>  c 

NEO  RUNS  WITH  POSITRONS  INCLUDED 

> 

IF ( (NEORUN. EQ.l) .AND.POSNEO)  THEN 

> 

QMCHKA= . FALSE . 

> 

DO  I  =  l,maxneo 

> 

IF (  I AT  .EQ.  IUNIQA (I )  )  QMCHKA= . TRUE . 

> 

ENDDO 

> 

END  IF 

>  c 

1831al873, 1880 

>  c 

> 

IF ( (NEORUN. EQ.l) .AND.POSNEO)  THEN 

> 

QMCHKB= . FALSE . 

> 

DO  J  =  1,20 

> 

IF (  I  .EQ.  IUNIQA (J)  )  QMCHKB= . TRUE . 

> 

ENDDO 

> 

END  IF 

>  c 

1833cl882 

< 

IF (TEST  .GT.  TM10 )  GO  TO  1010 

> 

IF (TEST . GT . TM10  .OR.  ( QMCHKA. NEQV. QMCHKB ) ) 

GO 

TO  1010 
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C.2.3  MTHLIB.SRC.  The  change  to  the  MTHLIB .  SRC  file  is  to  allow  positron  ba¬ 
sis  function  centers  to  be  collocated  with  classical  nuclei  or  other  electronic  basis  function 
centers. 

1070al071 

>  PARAMETER  (MAXNEO40) 

1072cl073 

<  LOGICAL  CROWD, GOPARR, DSKWRK, MASWRK 

>  LOGICAL  CROWD, GOPARR, DSKWRK, MASWRK, POSNEO, POSPRP 

1080al083 

>  COMMON  /NUCPOS/  IUNIQA (MAXNEO) , POSNEO, POSPRP 
1126cll32, 1137 

<  IF  (MASWRK)  WRITE (IW, 9100)  CLOSE 

>  C  NEO  RUNS  FOR  POSITRONS  ARE  ALLOWED  TO  HAVE  POSITRON 

>  C  BASIS  FUNCTION  CENTERS  ON  CLASSICAL  NUCLEI,  SO  WE  MUST 

>  C  ALLOW  "CLOSE"  CENTERS  IN  THIS  CASE. 

>  C 

>  IF (NFG.EQ. 0  .AND.  .NOT. POSNEO)  THEN 

>  IF  (MASWRK)  WRITE (IW, 9100)  CLOSE 


C.2.4  NEO. SRC.  The  most  significant  changes  to  NEO  are  found  in  the  NEO .  SRC 
file.  In  addition  to  introducing  the  MAXNEO  parameter  to  accomodate  more  than  20  positron 
basis  function  centers,  we  add  the  capability  to  read  in  the  IUNIQA  array  and  POSNEO  and 
POSPRP  logical  variables  from  NEO  input.  Also,  for  positronic  NEO  runs,  the  mass  is  set 
to  ONE  (the  mass  of  the  electron  in  atomic  units).  Finally,  the  ELPOVR  logical  variable  is 
added  to  allow  for  the  calculation  of  the  electron-positron  four-overlap  integrals  when  the 
user  requests  the  calculation  of  the  annihilation  rate  (POSPRP== .  TRUE . ). 
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94c94 

<  LOGICAL  DIRNUC, NUFOCK, SYMNUC,  USRDEX 

>  LOGICAL  DIRNUC, NUFOCK, SYMNUC, USRDEX, POSNEO, POSPRP 
lOOalOl 

>  PARAMETER  (MAXNEO=40) 

110, 113clll, 114 

<  COMMON  /NUCMOI/  NUNIQN, IUNIQN (20 ) , IUNIQT (20 ) , NQMNUC, IQMNUC (20)  , 

<  *  IQNTYP (20 ) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

<  *  NNA,  NNB, NTAUXB 

<  COMMON  /NUCMOR/  QMNUCM(20) 

>  COMMON  /NUCMOI/  NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

>  *  IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

>  *  IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

>  COMMON  /NUCMOR/  QMNUCM (MAXNEO) 

116cll7 

<  COMMON  /NUCMON/  QNUN (20) , QNN (20) 

>  COMMON  /NUCMON/  QNUN (MAXNEO) , QNN (MAXNEO) 

118al20 

>  COMMON  /NUCPOS/  IUNIQA (MAXNEO) , POSNEO, POSPRP 
128cl30 

<  PARAMETER  (NNAM=23) 

>  PARAMETER  (NNAM=2  6) 

136, 138cl38, 141 

<  *  8HEXNB  ,  8HNEMPLV  , 8HNEOCI  / 

<  DATA  KQNAM  /l,  201, 203,  5,  5, 201,  0, 1,  1,  1, 201,  0, 0,  1,  0, 5, 5,  0,  0, 3, 

<  *  803,1,5/ 

>  *  8HEXNB  , 8HNEMPLV  , 8HNEOCI  , 8HPOSNEO  , 

>  *  8HPOSPRP  , 8HIUNIQA  / 

>  DATA  KQNAM  /l,  401, 403,  5,  5, 401, 0, 1,  1,  1,  401,  0, 0,  1,  0, 5, 5,  0,  0, 3, 

>  *  803,1,5,0,0,401/ 

172cl75 

<  DO  I  =  1,20 

>  DO  I  =  1, MAXNEO 

190al94, 195 

>  POSNEO  =  .FALSE. 

>  POSPRP  =  .FALSE. 

203, 204c208, 209 

<  *  0, 

<  *  0,0, 0,0,0,  0,0, 0,0,0, 

>  *  POSNEO, POSPRP, IUNIQA, 

>  *  0,0,0,  0,0, 0,0,0, 

( continued  on  next  page ) 
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299c304, 305 

<  *  HSSUPD, DIRNUC, SYMNUC, QMATLN, USRDEX 

>  * 

>  * 

343c349 

<  C 

>  C  —  CHECK  ONLY  QUANTUM  PROTONS  OR  POSITRONS  REQUESTED  — 
344a351, 352 

>  C  IF  POSNEO==TRUE  THEN 

>  C  l=POSITRON 

357c365 

<  C  —  FOR  NOW  FORCE  PROTONS  ONLY  — 

>  C  —  FOR  NOW  FORCE  PROTONS  OR  POSITRONS  ONLY  — 

359c367, 368 

<  DO  1  =  1 ,  NUNIQN+NAUXNB 

>  c  DO  1=1, NUNIQN+NAUXNB 

>  DO  1=1 , MAXNEO 
362c371, 373 

<  IF(II.EQ.l)  THEN 

>  IF (II . EQ . 1 .AND . POSNEO)  THEN 

>  QNUN(I)  =  'PS' 

>  ELSE  IF  (II .EQ. 1)  THEN 
390a402, 409 

>  IF  ((ITYP.EQ.l)  .AND. POSNEO)  THEN 

>  QMNUCM ( I )  =  ONE 

>  END  IF 

>  IF  ((ITYP.GT.l)  .AND. POSNEO)  THEN 

>  WRITE (IW, *)  'ASKED  FOR  IUNIQT  >  1  WITH  POSITRON' 

>  WRITE (IW,*)  'PLEASE  FIX' 

>  CALL  ABRT 

>  END  IF 
436c455, 456 

<  *  5X, 7HQMTOLN=, IP, E8 . 1, OP, 5X,  7HUSRDEX=,  L8) 

>  *  5X, 7HQMTOLN=, IP, E8 . 1, OP, 5X, 7HUSRDEX=, L8 / 

>  *  5X, 7HPOSNEO=,L8, 5X, 7HPOSPRP=,L8) 


HSSUPD, DIRNUC, SYMNUC, QMATLN, USRDEX, POSNEO, 
POSPRP 

-  CHECK  ONLY  QUANTUM  PROTONS  REQUESTED  — 


(continued  on  next  page) 
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447, 448c467, 468 

<  LOGICAL  D01NUC, DONGES 

<  LOGICAL  INIT, NUCNUC, ELENUC, DIRNUC, NUCTRN 

>  LOGICAL  DOINUC, DONGES, POSNEO, POSPRP 

>  LOGICAL  INIT, NUCNUC, ELENUC, DIRNUC, NUCTRN, ELPOVR 

451a472, 473 

>  PARAMETER  (MAXNEO=40) 

>  C 

454, 456c476,  478 

<  COMMON  /NUCMOI/  NUNIQN, IUNIQN (20 ) , IUNIQT (20 ) , NQMNUC, IQMNUC (20) , 

<  *  IQNTYP (20 ) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

<  *  NNA, NNB, NTAUXB 

>  COMMON  /NUCMOI/  NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

>  *  IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

>  *  IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

457a480 

>  COMMON  /NUCPOS/  IUNIQA (MAXNEO) , POSNEO, POSPRP 

510a534 

>  ELPOVR  =  .FALSE. 

512c536 

<  &  NUCNUC, ELENUC) 

>  & 

527a552 
> 

529c554 

<  & 

>  &  NUCNUC, ELENUC, ELPOVR) 

( continued  on  next  page ) 


NUCNUC, ELENUC, ELPOVR) 
ELPOVR  =  .FALSE. 

NUCNUC, ELENUC) 
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533a559, 573 
> 

>  C 

>  c 

> 

> 

>  C 

> 


> 

> 

> 

> 

> 

>  c 

> 

> 


ELECTRON-POSITRON  OVERLAP  INTEGRALS 


IF 


POSNEO 
SVGPAR  = 

MIXED  = 
NUCNUC  = 
ELENUC  = 
ELPOVR  = 


.AND. 

GOPARR 

.  TRUE . 
.FALSE. 
.FALSE. 
. TRUE . 


POSPRP  )  THEN 


CALL  NJANDK (MIXED, INIT, SCFTYP, DIRNUC, NUCTRN, FAEN, FBEN, 
NUCNUC, ELENUC, ELPOVR) 


GOPARR 
END  IF 


SVGPAR 


555a596 

>  PARAMETER  (MAXNEO=40) 

563, 565c604, 606 

<  COMMON  /NUCMOI/  NUNIQN, IUNIQN (20 ) , IUNIQT (20 ) , NQMNUC, IQMNUC (20) , 

<  *  IQNTYP (20 ) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

<  *  NNA, NNB, NTAUXB 


>  COMMON  /NUCMOI/  NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

>  *  IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

>  *  IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

625a667 

>  PARAMETER  (maxneo=40) 

631, 633c673, 675 

<  COMMON  /NUCMOI/  NUNIQN, IUNIQN (20 ), IUNIQT (20) , NQMNUC, IQMNUC (20) , 

<  *  IQNTYP (20), NUMNB, NUCST, NAUXNB, IAUXNB (20), NUMULT, 

<  *  NNA, NNB, NTAUXB 

>  COMMON  /NUCMOI/  NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

>  *  IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

>  *  IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

740a783 

>  PARAMETER  (maxneo=40) 

743, 745c786, 788 

<  COMMON  /NUCMOI/  NUNIQN, IUNIQN (20 ), IUNIQT (20 ), NQMNUC, IQMNUC (20) , 

<  *  IQNTYP (20), NUMNB, NUCST, NAUXNB, IAUXNB (20), NUMULT, 

<  *  NNA, NNB, NTAUXB 

>  COMMON  /NUCMOI/  NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

>  *  IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

>  *  IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 


C.2.5  NEOBAS.SRC.  In  addition  to  introducing  the  MAXNEO  parameter  to  acco¬ 
modate  more  than  20  positronic  basis  function  centers,  a  significant  addition  was  made  so 
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that  one  can  read  in  contracted  positron  basis  functions.  With  the  latter  change,  positron 

basis  sets  are  formatted  in  the  same  way  as  electronic  basis  sets. 

42a43 

>  PARAMETER  (MAXNEO40) 

67, 69c68, 70 

<  COMMON  /NUCMOI/  NUNIQN, IUNIQN (20 ) , IUNIQT (20 ) , NQMNUC, IQMNUC (20) , 

<  *  IQNTYP (20 ) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

<  *  NNA, NNB, NTAUXB 

>  COMMON  /NUCMOI/  NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

>  *  IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

>  *  IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

71c72 

<  COMMON  /NUCMON/  QNUN (20) , QNN (20) 

>  COMMON  /NUCMON/  QNUN (MAXNEO) , QNN (MAXNEO) 

136al38, 139 

> 

>  QNN(NQN)  =  QNUN (II) 

304c307 

<  IF (NQN.GT.20)  GO  TO  1540 

>  IF (NQN.GT. MAXNEO)  GO  TO  1540 
1149all53 

>  PARAMETER  (MAXNEO=40) 

1162cll66 

<  COMMON  /NUCMON/  QNUN (20) , QNN (20) 

>  COMMON  /NUCMON/  QNUN (MAXNEO) , QNN (MAXNEO) 

1518al523, 1524 

>  CHARACTER* 1  SHELLTYPE 

>  LOGICAL  POSNEO,  POSPRP 
1524al531 

>  PARAMETER  (MAXNEO=40) 

1529al537 

>  COMMON  /NUCPOS/  IUNIQA (MAXNEO) , POSNEO, POSPRP 

( continued  on  next  page ) 
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1540al549, 1583 

> 

IBF=3 

> 

CALL  SEQOPN ( IBF , ' NUCBAS ' ,  ' 

OLD' ,  . 

TRUE.,  'FORMATTED') 

>  C 

>  C 

-  POSITRON  - 

>  c 

> 

IF  ( .NOT.POSNEO)  GO  TO  115 

> 

READ (IBF,*)  MXPASS 

> 

K=1 

> 

DO  110  1=1, MXPASS 

> 

READ (IBF,*)  SHELLTYPE,  NGBFS  (I 

) 

> 

JNGBFS=NGBFS (I) 

> 

IF  ( (SHELLTYPE. EQ.' S' )  . 

OR. (  SHELLTYPE. EQ. ' S' ) ) 

> 

*  ITYPES  (I)  =1 

> 

IF  ( (SHELLTYPE. EQ. 'P' )  . 

OR. (  SHELLTYPE. EQ. 'P' ) ) 

> 

*  ITYPES  (I)  =2 

> 

IF  ( (SHELLTYPE. EQ. 'D' )  . 

OR. (  SHELLTYPE. EQ. 'D' ) ) 

> 

*  ITYPES  (I)  =3 

> 

DO  105  J=1 , JNGBFS 

> 

IF  ( (SHELLTYPE. EQ. 'S' 

)  .OR. 

(  SHELLTYPE. EQ. 'S' ) 

)  THEN 

>  c 

IF  (KSHELLTYPE.EQ. 1) 

THEN 

> 

READ (IBF,*)  NGBF, 

EEX(K) 

,  CCS  (K) 

> 

END  IF 

> 

IF  ( (SHELLTYPE. EQ.'P' 

)  .OR. 

(  SHELLTYPE .EQ.'P') 

)  THEN 

>  c 

IF  (KSHELLTYPE.EQ. 2) 

THEN 

> 

READ (IBF,*)  NGBF, 

EEX(K) 

,  CCP(K) 

> 

END  IF 

> 

IF  ( (SHELLTYPE. EQ.'D' 

)  .OR. 

(  SHELLTYPE .EQ.'D') 

)  THEN 

>  c 

IF  (KSHELLTYPE.EQ. 3) 

THEN 

> 

READ (IBF,*)  NGBF, 

EEX(K) 

,  CCD (K) 

> 

END  IF 

> 

K=K+1 

> 

105  CONTINUE 

> 

110  CONTINUE 

> 

115  IF  (POSNEO)  GO  TO  300 

1544 

, 1545dl586 

< 

IBF=3 

< 

CALL  SEQOPN (IBF, 'NUCBAS' ,  ' 

OLD' ,  . 

TRUE.,  'FORMATTED') 

1555cl596 

< 

IGX  =  0 

> 

300  IGX  =  0 
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C.2.6  NEOCAS.SRC.  Again,  just  a  few  changes  to  the  NEOCAS .  SRC  file  to  acco¬ 


modate  more  than  20  positron  basis  function  centers. 


8a9 

> 

PARAMETER  (MAXNEO=40) 

19, 

21c20, 22 

< 

COMMON 

/NUCMOI/ 

NUNIQN, IUNIQN (20) , IUNIQT (20) , NQMNUC, IQMNUC (20) , 

< 

k 

IQNTYP (20) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

< 

k 

NNA, NNB, NTAUXB 

> 

COMMON 

/NUCMOI/ 

NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

> 

k 

IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

> 

k 

IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

285a287 

> 

PARAMETER  (MAXNEO=40) 

300, 302c302, 304 

< 

COMMON 

/NUCMOI/ 

NUNIQN, IUNIQN (20) , IUNIQT (20) , NQMNUC, IQMNUC (20) , 

< 

k 

IQNTYP (20) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

< 

k 

NNA, NNB, NTAUXB 

> 

COMMON 

/NUCMOI/ 

NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

> 

k 

IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

> 

k 

IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

C.2.7  NEOFCI.SRC.  The  MAXNEO  parameter  is  introduced  into  the  NEOFCI .  SRC 

file  to  allow  for  more  than  20  positron  basis  function  centers. 

117all8 

>  PARAMETER  (MAXNEO=40) 

152, 154cl53, 155 

<  COMMON  /NUCM0I/  NUNIQN, IUNIQN (20 ) , IUNIQT (20 ) , NQMNUC, IQMNUC (20 )  , 

<  *  IQNTYP (20 ) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

<  *  NNA,  NNB, NTAUXB 

>  COMMON  /NUCMOI/  NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

>  *  IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

>  *  IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

777a779 

>  PARAMETER  (MAXNEO=40) 

792, 794c794, 796 

<  COMMON  /NUCMOI/  NUNIQN, IUNIQN (20 ), IUNIQT (20 ), NQMNUC, IQMNUC (20 )  , 

<  *  IQNTYP (20), NUMNB, NUCST, NAUXNB, IAUXNB (20), NUMULT, 

<  *  NNA,  NNB, NTAUXB 

>  COMMON  /NUCMOI/  NUNIQN,  IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

>  *  IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

>  *  IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 
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C.2.8  NEOHF.SRC.  The  MAXNEO  parameter  is  introduced  into  the  NEOHF.SRC 


file  to  allow  for  more  than  20  positron  basis  function  centers. 


133al34 

> 

PARAMETER  (MAXNEO=40) 

148, 150cl49, 151 

< 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (20) , IUNIQT (20) , NQMNUC, IQMNUC (20) , 

< 

k 

IQNTYP (20) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

< 

k 

NNA, NNB, NTAUXB 

> 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

> 

k 

IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB,  NUCST, NAUXNB, 

> 

k 

IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

582a584 

> 

PARAMETER  (MAXNEO=40) 

600, 602c602, 604 

< 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (20) , IUNIQT (20) , NQMNUC, IQMNUC (20) , 

< 

k 

IQNTYP (20) , NUMNB, NUCST, NAUXNB, IAUXNB (20)  , NUMULT, 

< 

k 

NNA, NNB, NTAUXB 

> 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

> 

k 

IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

> 

k 

IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

1500al503 

> 

PARAMETER  (MAXNEO=40) 

1513, 

1515cl516, 1518 

< 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (20) , IUNIQT (20) , NQMNUC, IQMNUC (20) , 

< 

k 

IQNTYP (20) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

< 

k 

NNA, NNB, NTAUXB 

> 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

> 

k 

IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

> 

k 

IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

C.2.9  NEOINT.SRC.  The  MAXNEO  parameter  is  introduced  into  the  NEOINT  .  SRC 
file  to  allow  for  more  than  20  positron  basis  function  centers.  Also,  the  neodftint  routine 
is  called  for  calculation  of  the  four-overlap  integrals  since  all  of  the  necessary  setup  is 
already  taken  care  of  for  the  other  integral  packages. 
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17al8 

>  PARAMETER  (MAXNEO=40) 

39, 42c40, 43 

<  COMMON  /NUCMOI/  NUNIQN,  IUNIQN (20 ) , IUNIQT (20) , NQMNUC, IQMNUC  (20) , 

<  *  IQNTYP (20 ) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

<  *  NNA, NNB, NTAUXB 

<  COMMON  /NUCMOR/  QMNUCM(20) 

>  COMMON  /NUCMOI/  NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

>  *  IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

>  *  IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

>  COMMON  /NUCMOR/  QMNUCM (MAXNEO) 

624a626 

>  PARAMETER  (MAXNEO=40) 

648, 650c650, 652 

<  COMMON  /NUCMOI/  NUNIQN, IUNIQN (20 ), IUNIQT (20 ), NQMNUC, IQMNUC (20) , 

<  *  IQNTYP (20), NUMNB, NUCST, NAUXNB, IAUXNB (20), NUMULT, 

<  *  NNA, NNB, NTAUXB 

>  COMMON  /NUCMOI/  NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

>  *  IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

>  *  IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

736c738 

<  *  NUCNUC, ELENUC) 

>  *  NUCNUC, ELENUC, ELPOVR) 

742c744 

<  LOGICAL  INIT,DIRNUC,NUCTRN, MIXED, NUCNUC, ELENUC 

>  LOGICAL  INIT,DIRNUC,NUCTRN, MIXED, NUCNUC, ELENUC, ELPOVR 

843c845, 849 

<  CALL  TWOENI (SCFTYP, DIRNUC, NUCTRN, INTTYP, SCHWRZ, NINT, NSCHWZ, 

>  IF (ELPOVR)  THEN 

>  IDFTOVRLP=4 

>  CALL  NEODFTINT (IDFTOVRLP) 

>  ELSE 

>  CALL  TWOENI (SCFTYP, DIRNUC, NUCTRN, INTTYP, SCHWRZ, NINT, NSCHWZ, 
846a853 

>  END  IF 
855, 858c862, 867 

<  IF (MIXED)  THEN 

<  WRITE (IW, *)  '  .  END  OF  ELECTRON-NUCLEAR  INTEGRALS  . ' 

<  ELSE 

<  WRITE (IW,*)  '  .  END  OF  NUCLEAR-NUCLEAR  INTEGRALS  . ' 

>  IF (MIXED . AND . ELENUC . AND . . NOT . ELPOVR)  THEN 

>  WRITE ( IW, * ) '  ..  END  OF  ELECTRON-NUCLEAR  COULOMB  INTEGRALS 

>  ELSE  IF (MIXED. AND. .NOT. ELENUC. AND. ELPOVR)  THEN 

>  WRITE (IW,*)'  ' 

>  ELSE 

>  WRITE ( IW,  * )  '  .  END  OF  NUCLEAR-NUCLEAR  INTEGRALS  . ' 
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C.2.10  NE0MP2.SRC.  The  MAXNEO  parameter  is  introduced  into  the  NE0MP2  .  SRC 
file  to  allow  for  more  than  20  positron  basis  function  centers.  Also,  a  dummy  variable  is 
added  to  the  NJANDK  call  to  accomodate  the  calculation  of  the  four-overlap  integrals. 


51c51 

< 

k 

.FALSE., .TRUE.) 

> 

k 

.FALSE., .TRUE., .FALSE.) 

72a73 

> 

PARAMETER  (MAXNEO=40) 

87, 89c88, 90 

<  COMMON 

/NUCMOI/ 

NUNIQN, IUNIQN (20) , IUNIQT (20) , NQMNUC, IQMNUC (20) , 

< 

k 

IQNTYP (20) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

< 

k 

NNA, NNB, NTAUXB 

> 

COMMON 

/NUCMOI/ 

NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

> 

k 

IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

> 

k 

IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

C.2.11  NEOSTB.SRC.  This  is  just  the  ‘stub’  file  to  abort  NEO  runs  when  the 
binary  doesn’t  have  NEO  compiled  into  it.  In  addition  to  the  changes  to  the  NEO  input 
deck,  there  is  now  a  stub  for  the  LAMBDAHF  routine  for  computing  the  annihilation  rate. 


25c25 

< 

LOGICAL 

,  NEOOPT, 

NEOHSS 

> 

LOGICAL 

,  NEOOPT, 

NEOHSS,  POSNEO, POSPRP 

29a30 

> 

PARAMETER  (MAXNEO=40) 

38, 41c39, 42 

< 

COMMON 

/NUCMOI/ 

NUNIQN,  IUNIQN (20)  ,  IUNIQT (20) , NQMNUC, IQMNUC (20) , 

< 

k 

IQNTYP (20) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

< 

k 

NNA, NNB, NTAUXB 

< 

COMMON 

/NUCMOR/ 

QMNUCM (20 ) 

> 

COMMON 

/NUCMOI/ 

NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

> 

k 

IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

> 

k 

IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

> 

COMMON 

/NUCMOR/ 

QMNUCM (MAXNEO) 

44d44 

< 

COMMON 

/NUCOPT/ 

NEOOPT, NUSTEP,NEOTS 

( continued  on  next  page) 
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(continued  from  previous  page) 

45a46, 47 

>  COMMON  /NUCOPT/  NEOOPT, NUSTEP, NEOTS 

>  COMMON  /NUCPOS/  IUNIQA (MAXNEO) , POSNEO, POSPRP 
55c57 

<  PARAMETER  (NNAM=22) 

>  PARAMETER  (NNAM=25) 

63,  65c65, 69 

<  *  8HEXNB  , 8HNEMPLV  / 

<  DATA  KQNAM  /l,  201, 203,  5,  5, 201, 0, 1,  1,  1, 201,  0,  0,  1,  0,  5, 5,  0,  0, 3, 

<  *  803,1/ 

>  *  8HEXNB  , 8HNEMPLV  ,  8HPOSNEO  ,  8HPOSPRP  , 

>  *  8HIUNIQA  / 

>  DATA  KQNAM  /l,  201, 203,  5,  5,201,0,  1,  1,  1,201,  0, 

>  *  0,1, 0,5,  5, 0,0, 3,  803,1,0,0, 

>  *  201/ 

101al06 

>  IUNIQA (I)  =  0 
117al23, 124 

>  POSNEO  =  .FALSE. 

>  POSPRP  =  .FALSE. 

125,  127cl32, 134 

<  *  HSSUPD, DIRNUC, SYMNUC, QMTOLN, EXNB, NEMPLV, 

<  *  0,0, 

<  *  0,0, 0,0,0,  0,0, 0,0,0, 

>  *  HSSUPD, DIRNUC, SYMNUC, QMTOLN, EXNB, NEMPLV, POSNEO, POSPRP, 

>  *  IUNIQA, 

>  *  0,0, 0,0,  0,0, 0,0,0, 

260a268, 273 

>  C*MODULE  NEOPOS  *DECK  LAMDAHF 

>  SUBROUTINE  LAMBDAHF 

>  IMPLICIT  DOUBLE  PRECISION (A-H, O-Z) 

>  CALL  ABRT 

>  RETURN 

>  END 


C.2.12  NEOSYM.SRC.  The  MAXNEO  parameter  is  introduced  into  the  NEOSYM .  SRC 
file  to  allow  for  more  than  20  positron  basis  function  centers. 
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14al5 

> 

PARAMETER  (MAXNEO=40) 

24, 26c25, 27 

< 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (20) , IUNIQT (20) , NQMNUC, IQMNUC (20) , 

< 

k 

IQNTYP (20) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

< 

k 

NNA, NNB, NTAUXB 

> 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

> 

k 

IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

> 

k 

IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

113all5 

> 

PARAMETER  (MAXNEO=40) 

133, 135cl35, 137 

< 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (20) , IUNIQT (20) , NQMNUC, IQMNUC (20) , 

< 

k 

IQNTYP (20) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

< 

k 

NNA, NNB, NTAUXB 

> 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

> 

k 

IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

> 

k 

IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

653a656 

> 

PARAMETER  (MAXNEO=40) 

666, 668c669, 671 

< 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (20) , IUNIQT (20) , NQMNUC, IQMNUC (20) , 

< 

k 

IQNTYP (20) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

< 

k 

NNA, NNB, NTAUXB 

> 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

> 

k 

IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

> 

k 

IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

889a893 

> 

PARAMETER  (MAXNEO=40) 

902, 904c906, 908 

< 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (20) , IUNIQT (20) , NQMNUC, IQMNUC (20) , 

< 

k 

IQNTYP (20) , NUMNB, NUCST, NAUXNB, IAUXNB (20)  , NUMULT, 

< 

k 

NNA, NNB, NTAUXB 

> 

COMMON  /NUCMOI/ 

NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

> 

k 

IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

> 

k 

IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

1002al007 

> 

PARAMETER  (MAXNEO=40) 

( continued  on  next  page) 
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1017, 1019cl022, 1024 

<  COMMON  /NUCMOI/  NUNIQN, IUNIQN (20 ) , IUNIQT (20 ) , NQMNUC, IQMNUC (20) , 

<  *  IQNTYP (20 ) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

<  *  NNA, NNB, NTAUXB 

>  COMMON  /NUCMOI/  NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

>  *  IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

>  *  IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 

1668al674, 1675 

>  c 

>  PARAMETER  (MAXNEO=40) 

1672, 1674cl679, 1681 

<  COMMON  /NUCMOI/  NUNIQN, IUNIQN (20 ), IUNIQT (20 ), NQMNUC, IQMNUC (20) , 

<  *  IQNTYP (20), NUMNB, NUCST, NAUXNB, IAUXNB (20), NUMULT, 

<  *  NNA,  NNB, NTAUXB 

>  COMMON  /NUCMOI/  NUNIQN,  IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

>  *  IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

>  *  IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 


C.2.13  NEOTRN.SRC.  The  MAXNEO  parameter  is  introduced  into  the  NEOTRN .  SRC 
file  to  allow  for  more  than  20  positron  basis  function  centers. 


llal2 

> 

PARAMETER  (MAXNEO=40) 

39, 41c40,  42 

< 

COMMON 

/NUCMOI/ 

NUNIQN, IUNIQN (20) , IUNIQT (20) , NQMNUC, IQMNUC (20) , 

< 

k 

IQNTYP (20) , NUMNB, NUCST, NAUXNB, IAUXNB (20) , NUMULT, 

< 

k 

NNA, NNB, NTAUXB 

> 

COMMON 

/NUCMOI/ 

NUNIQN, IUNIQN (MAXNEO) , IUNIQT (MAXNEO) , NQMNUC, 

> 

k 

IQMNUC (MAXNEO) , IQNTYP (MAXNEO) , NUMNB, NUCST, NAUXNB, 

> 

k 

IAUXNB (MAXNEO) , NUMULT, NNA, NNB, NTAUXB 
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